Non Funza dove sbaglio?
Posto il codice:
------------------------------------------------------

Set RsStatProA = New ADODB.Recordset
RsStatProA.Open "SELECT * from StatProA where CodeRif ='" &
Trim(txtCode.Text) & "'", dB, adOpenStatic, adLockOptimistic

Dim sql
sql = "DELETE StatProA.CodeRif FROM StatProA WHERE StatProA.CodeRif = (txtcode.text) "
RsStatProA.Source = (sql)
RsStatProA.Close
----------------------------------------------------------

StatProA č la tabella
CodeRif č il campo