Ciao,

non riesco a fare una query al db
ecco il codice:
codice:
Private Sub Command1_Click()    'Ciclo principale del programma
    Anno_In = Anno_T.Text
    Anno_temp = CInt(Anno_In)
    Anno_Out = Anno_In - 5
    ID_Azienda = Id_Az
    
    Dim var(100, 100) As Integer
        
    Do While Anno_temp >= Anno_Out
    For i = 18 To Età_Max
        For j = 0 To Anz_Max
            eta = Anno_temp - i

            SQL = "SELECT * From DipInServ WHERE " _
                 "((CInt(Right([dnasc],4)))=" & eta & ") AND " _
                 "((" & Anno_temp & " _
                 " - CInt(Right([dassunz],4))) = " & j & ") AND " _
                 "((CInt(Right([dusc],4)))>=" & Anno_temp & ") " _
                 "AND ((dipinserv.IdAz)=" & ID_Azienda & ")"

            Set Rs = Cn.Execute(SQL)
            var(i, j) = Rs.RecordCount
        Next j
    Next i
    Anno_temp = Anno_temp - 1
    Loop
End Sub
Nota:
la stringa sql è su una sola riga.

l'errore che mi da é:

Run-time error '-2147217913 (80040e07)'
Tipi di dati non corrispondenti nell'espressione criterio


Cosa ho sbagliato?