sql = "SELECT * FROM Table1"



With DBEngine.OpenDatabase(CurrentProject.Path & "\be.accdb", False, False, ";pwd=123")

       Set rst2 = .OpenRecordset(sql)

       rst2.MoveLast

       End With

MsgBox rst2.RecordCount

كد رو به اين شكل استفاده كنيد.