Sub Main()

Dim oEnv as New clsD3Environment

Dim oConn as clsD3Connection

Dim oFile as clsD3File

Set oConn = oEnv.brOpenConnection(“ODBC”, “production”)

Set oFile = oConn.brOpenFile(“daily.log”)

oFile.brClearFile ‘ Clear log file

oConn.brCloseFile oFile

oEnv.brCloseConnection oConn

End Sub