Sub Main()

Dim oEnv As New clsD3Environment

Dim oConn As clsD3Connection

Dim oTCLCmd As clsD3TclCommand

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

Set oTCLCmd = oConn.brOpenTclCommand("copy customers")

oTCLCmd.brData "(cust.bak"

oTCLCmd.brExecute

oConn.brCloseTclCommand oTCLCmd

oEnv.brCloseConnection oConn

Set oEnv = Nothing

End Sub