Private Sub InternalDate_Click()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim sPickDate As String

Set oConn = oEnv.brOpenConnection("ODBC","production")

sPickDate = oConn.brIconv("04/07/99", "d2/")

...

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub