conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "\test.accdb"
conn.Open
rs.ActiveConnection = conn
rs.Open "select * from test "
rs.Open "select count(*) from test ", conn, adOpenKeyset, adLockOptimistic
MsgBox rs.RecordCount