Qualcuno sa dirmi che errore c'è in questo codice, mi idce tipo non corrispondente nella riga:

Set rst = dbs.OpenRecordset(strSQL)

ma non capisco perchè!!!




Private Sub CmdCodFiscale_Click()
On Error GoTo Err_CmdCodFiscale_Click
Dim strSQL As String
Dim dbs As Database
Dim rst As Recordset

strSQL = "Select NumeroDomanda, CognomeRichiedente, NomeRichiedente, SessoRichiedente, LuogoNascRichiedente, DataNascRichiedente, CodFiscRichiedente From Dati"

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strSQL)
Do While Not rst.EOF
If Not CheckCodiceFiscale(rst("CodFiscRichiedente"), rst("NomeRichiedente"), rst("CognomeRichiedente"), rst("DataNascRichiedente"), rst("SessoRichiedente"), rst("LuogoNascRichiedente")) Then
MsgBox rst("NumeroDomanda")

End If
rst.MoveNext
Loop

Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_CmdCodFiscale_Click:
Exit Sub

Err_CmdCodFiscale_Click:
MsgBox Err.Description & Err.Number
Resume Exit_CmdCodFiscale_Click

End Sub