VB6.0中datagrid控件问题？ 21

VB6里，类似的控件叫 datagrid控件，需要通过菜单 [工程] -- [部件]，勾选 Microdoft DataGrid Control 6.0 (SP6)，完成添加到控件工具箱。 VB利用DataGrid控件显示数据库中数据信息，DataGrid在数据库数据显示的时候非常重要，它在用户操作舒适度及数据排列方面有独到之处，对于Vb数据库编程的用户来说，掌握DataGrid的使用是至关重要的事情。 参考实例如下： Public cnn As adodb.Connection Public rst As adodb.Recordset Public Sub setdb() Set cnn = New adodb.Connection cnn.Provider = "Microsoft.Jet.OLEDB.4.O" cnn.ConnectionString = "Data Source=" & App.Path & "\personal.mdb;" cnn.CursorLocation = adUseClient cnn.Open End Sub Private Sub Form_Load() On Error Resume Next Dim Strsql As String setdb Set DataGrid1.DataSource = Nothing Strsql = "select * from 备忘录 order by 编号" Set rst = cnn.Execute(Strsql) If Err Then MsgBox "读取数据失败" Exit Sub End If If rst.EOF Then Set DataGrid1.DataSource = Nothing Else Set DataGrid1.DataSource = rst End If End Sub