Dim cnnTmp as new adodb.connection
dim recTmp as new adodb.recordset
set cnntmp = new adodb.connection
cnntmp.connectionstring ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
Try this:
rectmp.CursorLOcation=Aduseclient
This will acitvate the recordcount
rectmp.open mysqlstring, cnntmp
msgbox rectemp.recordcount
