Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim lPickDate As Long

Dim sDate As String

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

lPickDate = oConn.brDate

sDate = oConn.brOconv(CStr(lPickDate), "d2/")

MsgBox "Today's date is " & sDate

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub