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???