delete sql

bonjour ou bonsoir a tous,
j'ai un petit ptoblème avec la fct delete en sql voici mon code:
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mot_de_passe.mdb;Persist Security Info=False"
login1 = text1.text
Adodc1.ConnectionString = connect
'Adodc1.Recordset.Open
txtcodessql = "DELETE * FROM table1 where login= '" & login1 & "'"
Adodc1.RecordSource = Trim$(txtcodessql)
Adodc1.CommandType = adCmdText
Adodc1.Refresh

si je fais sa comme il est la avec un commentaire sur la methode open il me met une erreur adodc1
"cet operation n'est pas autorisé si l'objet est fermé.
je met donc dans mon code 'Adodc1.Recordset.Open
et la il me met une erreur: cet operation n'est pas autorisé si l'objet est ouvert!!
si qq a une idée. Merci a lui

deja je me demande si dans la requete il faut pas mettre
"WHERE login LIKE '" & login1 & "'"

ensuite tout depend sur kel ligne il met l'erreur... c p'tet juste l'ordre des ligne a changer ou un truc kom ca...

"la vitesse de la lumière est supérieure à celle du son, c'est pourquoi un imbécile parait intelligent jusqu'a ce qu'il parle !!"

Bonjour laurent180
 J'ai actuellement le même problème alors si tu as fini par trouver la solution éclaire moi

merci joedalton85

voici ma source.

Dim adoConnection As ADODB.Connection
Set adoConnection = New ADODB.Connection
Dim Connectstring As String
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mot_de_passe.mdb;Persist Security Info=False"
Connectstring = Connect
adoConnection.Open Connectstring
 

txtCodesSQL = "DELETE * FROM table1 where login= '" & login1 & "'"
adoConnection.Execute (Trim$(txtCodesSQL))
adoConnection.Close
Set adoConnection = Nothing

voila j'espère t'avoir aidé.