Option Explicit

Dim objConn As ADODB.Connection
Dim objRs As ADODB.Recordset
    
Private Sub Form_Load()
    On Error Resume Next
    
    Set objConn = New ADODB.Connection
    Set objRs = New ADODB.Recordset
    
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\demo3.mdb;"
    objConn.Open
    objRs.CursorLocation = adUseClient
    objRs.Open "Select ProductId,ProductName,Discontinued FROM Products", objConn, adOpenStatic, adLockReadOnly
    Set DataGrid1.DataSource = objRs
    
    If Err.Number <> 0 Then
        MsgBox Err.Description
    End If
    
    On Error GoTo 0
End Sub

'释放资源
Private Sub Form_Unload(Cancel As Integer)

    '不操作此步会出错：The current row is not available
    If TypeName(DataGrid1.DataSource) <> "Nothing" Then
        Set DataGrid1.DataSource = Nothing
    End If
    
    If TypeName(objRs) <> "Nothing" Then
        objRs.Close
        Set objRs = Nothing
    End If
    
    If TypeName(objConn) <> "Nothing" Then
        objConn.Close
        Set objConn = Nothing
    End If
End Sub