nn, adOpenKeyset, adLockPessimistic     '打开数据库
    '设定datagrid控件属性
    DataGrid1.AllowAddNew = False                                 '不可增加
    DataGrid1.AllowDelete = False                                 '不可删除
    DataGrid1.AllowUpdate = False
    Set DataGrid1.DataSource = rs_zhiban
    Exit Sub
    loaderror:
       MsgBox Err.Description
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
    Set DataGrid1.DataSource = Nothing
    rs_zhiban.Close
    End Sub