Public Sub ADOWipeOutAttribute(RecID)
' Establish a connection transfers.mdb
MyConn = "C:\mydb.mdb"
With New ADODB.Connection
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open MyConn
.Execute "Delete From tblTransfer Where ID = " & RecID
.Close End With End Sub