Message erreurs d'exécuton

Bonjour,
1) j'ai tapé le code suivant :

Code:

---

1 2 3 4 5

Dim str As String If rst.State <> adStateClosed Then rst.Close str = " SELECT * FROM demande where mat_d = '" & Text1.Text & "'" rst.Source = str rst.Open

---

Mais le débogeur s'arrete à la ligne en rouge et m'affiche le message suivant :
Erreur d'exécution '3709'
impossible d'utiliser cette connexion pour effectuer cette opération. Elle est fermée ou non valide dans ce contexte.
Pourtant j'ai utilisé ce code ailleurs et ça marchait. Je ne comprends pourquoi j'ai cette erreur.
2) sur une autre feuille quand j'essaye d'inserer un nombre décimale dans ma base de donnée (access) j'ai le message d'erreur suivant :
Erreur d'exécution '-2147217913(800e07)'
Type de données incompatible dans l'expression du critère
Pourtant le champ qui recoit cet enregistrement est defini à Numérique et réel double, je comprends pas également.
Merci d'avance pour votre aide.

1)
Moi, perso je ne sais pas faire comme cela, je pratique de cette façon,
sachant que

Code:

---

1 2 3

'ref. Microsoft ActiveX Data Objects 2.0 Library Public CheminDataBase As New ADODB.Connection Public OuEtLaBD As String

---

CheminDataBase est valide de cette façon

Code:

---

1 2 3

OuEtLaBD = "C:\MonDossierBD\MabaseDeDonn.mdb" CheminDataBase.CursorLocation = adUseClient: CheminDataBase.Mode = adModeReadWrite CheminDataBase.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & OuEtLaBD & ";"

---

Je tenterai sa

Code:

---

1 2 3

str = "demande WHERE mat_d = '" & Text1.Text & "'" rst.Open str, CheminDataBase, adOpenStatic, adLockOptimistic If rst.EOF Then MsgBox "Impossible d'ouvrire la table" : exit sub

---

A savoir, éviter (proscrire) de nommer une variable str, car str est un mot reservé de VB
Function Str(Number), Membre de VBA.Conversion, Renvoie une chaîne représentant un nombre.

Pour le 2), met nous la ligne de code, avec si peu de renseignement, on va te parler des ennuis que l'on a avec notre boulle de cristal :lol:

Bonsoir,
merci il manquait quelque informations à mon recorset, maintenant ca va.
pour le 2) le probleme venait du fait que j'avais mis des cotes et maintenant aussi ca va