[h=3]بعضي ها هم دوست دارن كه مستقيم Recordset خودشون رو Open كنن و اونجوري اطلاعات رو بازيابي كنن:
[/h][h=3]کد:[/h]
کد PHP:
    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