Ho questo semplice codice:


DoCmd.GoToRecord , , acNewRec

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset

Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

Dim strCon As String
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;"
strCon = strCon & "Data Source =Inventario.accdb;"

con.Open strCon

strSql = " SELECT *" _
& " FROM Bene" _

rs.Open strSql, con

MsgBox (rs.RecordCount)

rs.ActiveConnection = Nothing
rs.Close
con.Close


la MsgBox m restituisce sempre -1. Puntualizzando inutilmente che la tabella Bene contiene ben 39 record...dov'è l'errore???