voila, ci dessous le debut du code pour ajouter des ENR dans une base que j'aurai precedemment créée et ça plante ....
(J'ai chargé les bibliothèques et tout et tout...)
je veux ouvrir la table pour faire un rs.addnew...
Private Sub Command1_Click()
'Dim pos1, pos2, tempom
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Ind, donnée(100)
'Ouverture BdD
base = InputBox("Nom de la base ")
table = InputBox("Nom de la table ")
CN.Provider = "Microsoft.JET.OLEDB.4.0"
CN.ConnectionString = App.Path + "\" + base + ".mdb"
CN.Open
' Table
RS.CursorLocation = adUseClient ' Utilisation d'un mode client
RS.CursorType = adOpenDynamic ' Ouvre en mode dynamique
RS.LockType = adLockOptimistic ' Verrouille la base de donnée en mode exclusive
RS.Open table, CN <==== ici ca plante !!
<==== pourquoi ????
<==== merci
etc etc etc rs!addnew etc etc