Access 2007 - problema connessione ADO

[gbu123]

ciao

sto cercando di accedere ad un db Access 2007 con una connessione ADO ,
le istruzioni sono le seguenti :

'provo ad usare connessione ADO !!!!!!!!!!
Dim Cnxn As ADODB.Connection
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim intResult As Integer

Set cn = CurrentProject.Connection
strSQL = "SELECT COUNT(*) As RecordCount FROM Tabella1 where key = " & Me.CampoMaschera
Set rs = New ADODB.Recordset
rs.LockType = adLockReadOnly
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly, adCmdText

If intResult > 0 Then
Else
Msg_err = "non ci sono record inseriti"
GoTo Err_.....
End If


l'esecuzione mi da un MsgBox con il seguente messaggio :

Errore di compilazione : Tipo definite dall’utente non definito.

dove sbaglio ? che cosa devo fare ?

grazie , ciao

[archimede]

Che tipo di campo è key? A che serve intResult? Come mai tra If e Else non c'è nulla?

HTH.

Alessandro

PS: Perché non usi il tag Code?

[gbu123]

-Che tipo di campo è key?
è un intero lungo

-A che serve intResult?
manca la memorizzazione di RecordCount

-Come mai tra If e Else non c'è nulla?
perchè mando un messaggio quando il contatore è 0

cmq l'errore si riferisce all'istruzione : Dim Cnxn As ADODB.Connection
(col debug)

cmq ciao e grazie dell'intervento

[archimede]

l'errore si riferisce all'istruzione : Dim Cnxn As ADODB.Connection

Se non hai già risolto, controllerei che nel progetto sia inclusa la ActiveX Data Objects Library (mi pare ALT/F11 e poi Tools -> References, o qualcosa di simile) e magari togli la DAO, se non la usi più.

HTH.

Alessandro

[gbu123]

ho spuntato :
-Microsoft Activex Data Objects 6.0 Library (ce ne sono diversi)
-Microsoft OLE DB ser vice compnent 1.0 Type Library ,
-OLE DV Error Type Library

ok ?

grazie , ciao

[archimede]

ok ?

Se funziona, sì.

Alessandro