Sub Main()

Dim oEnv As clsD3Environment

Dim oConn1 As clsD3Connection

Dim oFile As clsD3File

Set oEnv = New clsD3Environment

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

Set oFile = oConn1.brOpenFile("products")

oFile.brDeleteIndex ("a1")

oConn1.brCloseFile oFile

oEnv.brCloseConnection oConn1

Set oEnv = Nothing

End Sub