[VB6] Errore: impossibile eliminare dalle tabelle specificate

[lexus89]

eseguendo questo codice il debug mi restituisce questo errore:

Dim k As String
k = List1.Text

Dim cn As adodb.Connection
Dim rs As adodb.Recordset

stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "C:\test\test.mdb"

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

cn.Open stringa
rs.Open "DELETE from utenti WHERE [utenti.nome]='k'", cn, 1

rs.MoveNext

chi mi puo dire dove ho sbagliato???grazie!!!