Erro em tempo de execução 3061.

Bom dia,

Estou desenvolvendo um sisteminha de provas, que sempre que um aluno digitar o número da matricula

ela vai fazer uma pesquisa no bd para verificar se o aluno já começou a prova, caso já tenha começado a prova ele irá colocar as respostas já respondidas pelo usuário.

O meu problema está na hora de fazer a consulta, pelo o pouco que conheço a consulta SQL está certa e pelo o que eu pesquisei, a forma de chamar também deveria estar certa.

Eu gostaria de saber o que está acontecendo para aparecer a seguinte mensagem:

Erro em tempo de execução '3061'

Parâmetros insuficientes. Eram esperados 3.

Código da função que chama a função "prova_anterior"

CODE

Private Sub Form_Load()

Dim matric As Integer

txtMatricula.SetFocus

txtMatricula.Text = InputBox("Digite o seu número de matricula.")

prova_anterior (CInt(txtMatricula.Text))

txtNomeAluno.SetFocus

End Sub

Abaixo segue o código da função onde eu faço a consulta SQL:

CODE
Private Sub prova_anterior(matricula As Integer)

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim instrucao As String

 instrucao = "SELECT aluno.aluno, windows.ex01, windows.ex02, windows.ex03, windows.ex04, " & _

 "windows.ex05, windows.ex06, windows.ex07, windows.ex08, windows.ex09, windows.ex10, " & _

 "windows.ex11, windows.ex12 FROM aluno, windows " & _

 "WHERE aluno.matricula = " & matricula & " and aluno.id_aluno = windows.id_aluno;"

 

 Set db = CurrentDb()

 Set rs = db.OpenRecordset(instrucao)

 

 If Not rs.EOF Then

 txtNomeAluno.SetFocus

 txtNomeAluno.Text = rs.Fields(0)

 

 ex01.SetFocus

 ex01.Value = rs.Fields(1)

 

 End If

End Sub

Desde já,

Obrigado.