VB 6.0 - problema con la combo

[Nosf1]

Salve di nuovo a tutti!
riempio una combo box con dei dati che prelevo in un database (idcliente, nome, cognome). Ora scegliendo da questa combo un cliente e premendo un tasto (command), dovrei poter visualizzare in una label SOLO l'id del cliente stesso selezionato!
Ho usato questo codice:

Private Sub cmdok_Click()
If cmbseleziona2.Text = "" Then 
        lblMessaggio1.Caption = "Selezionare un Utente valido"
    Else
        lblMessaggio1.Caption = ""

         s = Split(cmbseleziona2.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 idcliente FROM clienti WHERE id = " & CInt(s(0)), cn, 1        
 ' RIEMPIO UN CAMPO DELLA FORM CON L' ID DEL CLIENTE
        Lbl8.Caption = rs("idcliente").Value
        
        rs.Close
        cn.Close
    End If
End Sub

Ma mi da errore nella scritta che ho evidenziato:
Errore di run time
Il driver ODBC non supporta le proprietà richieste
Qualcuno puo aiutarmi? Grazie in anticipo!

[Dardino]

Private Sub cmdok_Click()
If cmbseleziona2.Text = "" Then 
        lblMessaggio1.Caption = "Selezionare un Utente valido"
    Else
        lblMessaggio1.Caption = ""

         s = Split(cmbseleziona2.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 idcliente FROM clienti WHERE id = " & CInt(s(0)), cn ,1 '<--- prova a togliere l'1 da qui        
 ' RIEMPIO UN CAMPO DELLA FORM CON L' ID DEL CLIENTE
        Lbl8.Caption = rs("idcliente").Value
        
        rs.Close
        cn.Close
    End If
End Sub

[Nosf1]

Ciao.
Ho provato anche io prima a levare quell'1, ma ora mi dice:
-Parametri insufficienti, previsto 1

Porca vacca non riesco a far nulla! VVoVe:
Helpatemi
Tnx :rollo:

[Dardino]

idea!!!

Prova a fare

Private Sub cmdok_Click()
    If cmbseleziona2.Text = "" Then 
        lblMessaggio1.Caption = "Selezionare un Utente valido"
    Else
        lblMessaggio1.Caption = ""

         s = Split(cmbseleziona2.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=Cn.Execute(SELECT idcliente FROM clienti WHERE id = " & CInt(s(0)))
        ' RIEMPIO UN CAMPO DELLA FORM CON L' ID DEL CLIENTE
        Lbl8.Caption = rs("idcliente").Value
        
        rs.Close
        cn.Close
    End If
End Sub