Mi aiutate a migliorare il codice?
Con questo codice effettuo le seguenti operazione: Attivo la connesisone e seleziono la tabella su cui agire, se il valore A corrisponde al valore presente nella cella (0) della tabella elimino tale record.
(il cnDB e rsDB sono presenti in un Modulo)

codice:
Private Sub cmdElimina_Click()
'Elimina i valori dalla tabellaA
If rsDB.State = 1 Then
rsDB.Close
End If

'Seleziono la tabella dal database e attivo la connessione
rsDB.Source = "Select * from TabellaA"
rsDB.ActiveConnection = cnDB
rsDB.Open

'Valore dei record presenti nella tabella
a = (rsDB.RecordCount - 1)

'Valore A per paragonarlo al valore da cercare nella tabella
b = txtID.Text

'Muovi il record all'inizio
rsDB.MoveFirst

'Esamina tutta la tabella da 0 fino ad a
For k = 0 To a
    rsDB.MoveFirst
    rsDB.Move k
    If rsDB.EOF = False Then
        If b = rsDB.Fields(0) Then
            rsDB.Delete
            rsDB.MoveNext
        End If
    End If
Next k

'Chiudi
rsDB.Close
End Sub
Chi mi aiuta?