ADO - forms - reference - problem.

'Denne kode er ok, men jeg kunne godt tænke at vide, hvad problemet er.

Dim Nummer As Integer
If IsNull(Forms!frmBrugere!IDBruger) Then
    MsgBox "Prøv venligst igen.", vbOKOnly, "Ikke korrekt login"
    Exit Sub
Else
    Nummer = Forms!frmBrugere!IDBruger
End If

Dim rst1 As ADODB.Recordset
Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenKeyset
rst1.ActiveConnection = CurrentProject.Connection
rst1.Open "SELECT tblTider.IDbruger, tblTider.Dato, tblTider.Ind, tblTider.Ud " _
    & "FROM tblTider " _
    & "WHERE (((tblTider.IDbruger)=" & Nummer & ") AND ((tblTider.Ud) Is Null));"

'men hvis jeg udskifter SELECT med denne, går det ikke:
rst1.Open "SELECT tblTider.IDbruger, tblTider.Dato, tblTider.Ind, tblTider.Ud " _
    & "FROM tblTider " _
    & "WHERE (((tblTider.IDbruger)=Forms!frmBrugere!IDBruger) AND ((tblTider.Ud) Is Null));"

Hvad er det jeg gør galt?

Mvh. Vanni