При логине выдает type missmatch !

[Силвия]

Private Sub Command17_Click()
Dim db As Database
Dim qb As QueryDef
Dim rs As Recordset

DoCmd.Minimize
Set db = CurrentDb
Set qd = db.QueryDefs("Lietot")
qd.Parameters(0) = Forms![Autorizacija]![Liet]
qd.Parameters(1) = Forms![Autorizacija]![par]

Ser rs = qb.OpenRecordset

If rs.RecordCount = 0 Then
MsgBox "Ielogoshana nav iespejama, jo lietotajavards vai/un" & vbCrLf & "parple nab ievadita pareizi!"
DoCmd.OpenForm "Atorizacija"
Liet = Null
par = Null
Else

DoCmd.OpenForm "E-gramata"

End Sub

Private Sub Text15_Click()

End Sub

[Силвия]

Помогите пожалуйста исправить

[alvk]

из вашего сообщения не видно, где у вас текст, а где число.

[Teslenko_EA]

Здравствуйте Силвия.
Не вдаваясь в структуру, в коде присутствуют ошибки, такие как:
Set rs = qb.OpenRecordset - явная опечатка
отсутствует закрывающий End If

...
Else
    DoCmd.OpenForm "E-gramata"
End If
End Sub

Евгений.
P.S. для удобочитаемости выкладываемый код заключайте в тэги [соde] ... [/соde]
для этого на панели инструментов размещена кнопка #.