Typenunverträglichkeit

[chewbacca]

guten morgen ihr,

ich habe ein problem mit folgendem code:

Dim gb_user_id
    gb_user_id = objRS.Fields("gb_user_id")

Dim objConnd
Set objConnd = server.createobject("adodb.connection")
    objConnd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\database\test.mdb;Persist Security Info=False"

Dim sqlCommandd
sqlCommandd = "Select *" &_
              "From TestTabelle " &_
              "where TestTabelle.rand_id =""" &_
              gb_user_id &_
              """"

Dim objRSd
Set objRSd = server.createobject("adodb.Recordset")
    objRSd.Open sqlCommandd, objConnd, 1, 3

beim ausführen wird mir eine fehlermeldung für die letzte zeile ausgegeben mit "Datentypen in Kriterienausdruck unverträglich."

der fehler muss im sqlCommandd liegen, aber ich komm nicht drauf.

bin dankbar für eure hilfe.

[chewbacca]

ach ja, es handelt sich bei objRS.Fields("gb_user_id") um eine zahl und bei TestTabelle.rand_id um einen autowert.