بازيابي اطلاعات از منابع - با استفاده از Recordset

کد:

    Public Sub LoadAll_3()
        Set Conn = New ADODB.Connection
        Set Rst = New ADODB.Recordset
       
        Conn.Provider = "Microsoft.JET.OLEDB.4.0"
        Conn.ConnectionString = App.Path + "\Data Base\Test.mdb"
        Conn.CursorLocation = adUseClient
        Conn.Open
       
        SQLQuery = "Select * From tblTest"
       
        Rst.ActiveConnection = Conn
        Rst.CursorType = adOpenKeyset
        Rst.CursorLocation = adUseClient
        Rst.Open SQLQuery
       
        Set frmMain.DataGrid1.DataSource = Rst
            frmMain.DataGrid1.Refresh
    End Sub