Sub DeleteItem_Click()

Dim oEnv As clsD3Environment

Dim oConn1 As clsD3Connection

Dim oItem As clsD3DynamicArray

Dim oFile As clsD3File

Set oEnv = New clsD3Environment

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

Set oFile = oConn1.brOpenFile("products")

‘ Delete one item from the file

oFile.brDelete (Text1.Text)

oConn1.brCloseFile oFile

oEnv.brCloseConnection oConn1

Set oEnv = Nothing

End Sub