متد Connect

کد:

    Public Sub LoadAll()
        Set Cmd = New ADODB.Command
        Set Rst = New ADODB.Recordset
        
        Connect
               
        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
    End Sub