Delete all records in Jet data base from vb6 program

[RobDog888]

Instead of trying to pass the delete sql use the control's .Delete
method and apply a filter for the delete criteria.

Private Sub Command1_Click()
    Adodc1.Recordset.Filter = "Investor_Number = '" & txtInvestorNumber & "'"
    Adodc1.Recordset.Delete adAffectGroup
    Adodc1.Recordset.UpdateBatch adAffectGroup
    Adodc1.Recordset.Filter = adFilterNone
End Sub