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

    Public Sub LoadAll_2()
        Set Conn = New ADODB.Connection
        Set Cmd = New ADODB.Command
        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"
        
        Cmd.ActiveConnection = Conn
        Cmd.CommandType = adCmdText
        Cmd.CommandText = SQLQuery
        
        Rst.CursorType = adOpenKeyset
        Rst.CursorLocation = adUseClient
        Set Rst = Cmd.Execute
        
        Set frmMain.DataGrid1.DataSource = Rst
            frmMain.DataGrid1.Refresh