Aonde estou errando?

Estou tentando abrir um relatório na conta específica enão dá certo.

Private Sub Comando2_Click()
Dim Report As Report, strMsg As String
Dim strInput As String, strFilter As String
strMsg = "Qual a conta a ser localizada? " _

strInput = InputBox(strMsg)

DoCmd.OpenReport "rptpagamento", acViewPreview

Set Report = Rpt!rptpagamento

strFilter = BuildCriteria("Conta", dbText, strInput)

Rpt.Filter = strFilter

Rpt.FilterOn = True


End Sub

Bom dia Carlos;

O erro está na parte corrigida a vermelho;

Private Sub Comando2_Click()
Dim Rpt As Report, strMsg As String
Dim strInput As String, strFilter As String
strMsg = "Qual a conta a ser localizada? " _

strInput = InputBox(strMsg)

DoCmd.OpenReport "rptpagamento", acViewPreview

Set Rpt = Reports!rptpagamento

strFilter = BuildCriteria("Conta", dbText, strInput)

Rpt.Filter = strFilter

Rpt.FilterOn = True
End Sub

Obrigado JPaulo, funcionou perfeitamente.
Valeu e Feliz 2010!!!!!

Obrigado pelo retorno e Feliz 2010 para si e toda a sua familia.