[RESOLVED] delete record in a single column vb 6

Can someone help me.How to delete all the data from one field column.I tried this code but it doesn't work. Please help me thank you.

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from patients where status"
Adodc1.Recordset.Delete
End sub