Code VB simple ?

Bonjour,
j'esseille de faire une connexion à une base de données et de l'utiliser mais il y aune erreur dans le code
voulez vous m'aider SVP j'utilise VB6 et la connexion est avec access

'dans le module
Option Explicit

Public db As Database
Public rs As Recordset
Public sql As String

'dans un bouton
Option Explicit

Private Sub Command1_Click()
sql = "select * from cliens" ''' On séléctionne tous les champs de la table
Set rs = db.OpenRecordset(sql, dbOpenDynaset) ''' ici on est bien en mode écriture (dbOpenDynaset)
'on me signale une errur ici

rs.AddNew '''Pour ajouter un enregistrement

rs.Fields("Nom") = txtNom.Text
rs.Fields("Prenom") = txtPrenom.Text
rs.Fields("Salaire") = salaire.Text

rs.Update 'Une fois les valeurs définies, on met à jour
rs.Close
End Sub

Private Sub Command2_Click()
sql = "select * from clients where nom='" & txtNom.Text & "' " '''Remarqué la présence de ' obligatoire pour le bon fonctionnemnt
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)

txtNom.Text = rs.Fields("Nom")
txtPrenom.Text = rs.Fields("Prenom")
txtsalaire.Text = rs.Fields("Salaire")
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\exemple.mdb")
End Sub

merci de votre aide