Dim db As New ADODB.Connection
 Dim rec As New ADODB.Recordset
 Dim recCount As Integer
 db.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;" & _
                        "Data Source=MS Access Database;" & _
                        "Initial Catalog=" & App.Path & "\dbstudent.mdb; Password=12345"
 db.Open
 
 rec.Open "SELECT * FROM tblStudent ORDER BY [name]", db, 3, 2
   
 recCount = rec.RecordCount

..............................................