[VB 6.0] cancellazione di un record al db di access

[Nosf1]

Ciao a tutti.
Riesco ad inserire dati, da un programma fatto in vb, all'interno di un database fatto in access e fin qui ok.
Ho un combo box dove praticamente mi esce la lista di tutti gli utenti che ho nel db; ora una volta selezionato un utente da questa lista...come faccio a deletarlo? Ho fatto questo codice:

Private Sub cmdCancella_Click()
If cmbseleziona.Text = "" Then ' CONTROLLO CHE IL RECOR SELEZIONATO NON SIA VUOTO
lblMessaggio.Caption = "Selezionare un Utente valido"
Else
' UTILIZZO LA FUNZIONE SPLIT PER RECUPERARE IL VALORE ID NELLA COMBO BOX
s = Split(cmbseleziona.Text, " ")

' ESEGUO LA CANCELLAZIONE DEL RECORD SELEZIONATO
Set cn = New ADODB.Connection
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\Francesco\Documenti\data.mdb"
cn.Execute ("DELETE * FROM clienti WHERE id = " & CInt(s(0)))
cn.Close

' PULISCO E RICARICO LA COMBO BOX
cmbseleziona.Clear
Call Form_Load
End If
End Sub

Ma con questo codice, scelgo un utente dalla combo box, e cliccando su cancella mi da errore di run time:
[Microsoft][driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.

Qualcuno sa aiutarmi? Grazie

[xegallo]

cn.Execute "DELETE FROM clienti WHERE id = " & CInt(s(0))

[Nosf1]

Non funziona neanche cosi...
forse perche quando seleziono un cliente nella combo box e premo su OK mi da l'errore: "il driver ODBC non supporta le proprietà richieste"
Questo qui sotto è il codice del pulsante seleziona nella combo:

Private Sub cmdseleziona_Click()
If cmbseleziona.Text = "" Then ' VERIFICO CHE SIA SELEZIONATO UN RECORD REALE, NON VUOTO
        lblMessaggio.Caption = "Selezionare un Utente valido"
    Else
        lblMessaggio.Caption = ""

        ' UTILIZZO LA FUNZIONE SPLIT PER RECUPERARE IL VALORE ID NELLA COMBO BOX
        s = Split(cmbseleziona.Text, " ")

        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset

        ' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE IL RECORD SELEZIONATO
        cn.Open "driver={Microsoft Access Driver *.mdb)};dbq=C:\Documents and Settings\Francesco\Documenti\data.mdb"
        rs.Open "SELECT * FROM clienti WHERE id =" & CInt(s(0)), cn, 1 
        ' RIEMPIO I CAMPI DELLA FORM CON I VALORI ESTRATTI DAL DATABASE
        txtnome.Text = rs("nome").Value
        txtcognome.Text = rs("cognome").Value
        txtindirizzo.Text = rs("indirizzo").Value
        txttelefono.Text = rs("teleabitazione").Value

        rs.Close
        cn.Close
    End If

End Sub

E nella riga in grassetto mi da errore! Ci capite qualcosa? Grazie!

[Nosf1]

up pls! Non riesco ancora a farlo fungere!