recordset vb6 et access

j'ai des problemes de connexion avc mon programme
je travail avc vb6 et access 2003

voici le code de ma feuille de demarrage ,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Public cnx As ADODB.Connection
Public rst As ADODB.Recordset
Public cmd As ADODB.Command
Public tt As String
 
 
Private Sub main()
 Set cnx = New ADODB.Connection
 Set rst = New ADODB.Recordset
 cnx.ConnectionString = "DSN=inscription"
 frmconnection.Show
End Sub

voici le code de la feuille frmconnection.show

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
Private Sub cmdannuler_Click()
  txtcompte = ""
  txtmotdepasse = ""
End Sub
 
Private Sub cmdconnecter_Click()
 
   If optiontypecompte(0).Value = True Then
     nomtype = "administrateur"
   Else
     If optiontypecompte(1).Value = True Then
     nomtype = "utilisateur"
     End If
  End If
 
cnx.Open
tt = "select * from COMPTES where Compteutilisateur = ' " & Trim(txtcompte.Text) & " ' and Motdepasse= ' " & Trim(txtmotdepasse.Text) & " ' "
Set rst = cnx.Execute(tt)
 
If (Not rs.EOF) Then
  MDIgestioninscription.Show
Else
  MsgBox (" vous n'avez pas entrer les bons parametres de connection !")
End If
cnx.Close
 
End Sub
 
Private Sub Form_Load()
 
End Sub

voici la requete de creation de ma table COMPTES

Code:

1
2
3
4
5
6
7
8
9
10
 
 
  create table COMPTES (
     N°compte integer ,
     Compteutilisateur varchar (50),
     Motdepasseutilisateur varchar (50),
     Question varchar(100),
     Reponse varchar(100),
     Typecompte varchar(50),
     primary key (N°compte) )

voila j'ai tout ls problemes du mon avc ce bout de code !!!
i need help

Citation:

erreur d'execution'-2147217904(80040e10)':
[Microsoft][Pilote ODBC Microsoft Access] trop de parametres. 1
attendu.

en fait c l'erreur qui s'afffiche a chaque fois