//用ADO点虐 中的Connection进行OLE连接到Access文件，连接字符串例子：
成都创新互联公司是一家专业的成都网站建设公司，我们专注网站设计制作、成都网站制作、网络营销、企业网站建设，买链接，广告投放为企业客户提供一站式建站解决方案，能带给客户新的互联网理念。从网站结构的规划UI设计到用户体验提高，创新互联力求做到尽善尽美。
connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=DB文件路径;Jet OLEDB:Database password=密码"
//再发送Command命令SQL，
Select * from Student_Perfomance where Stu_No='取到的学号'
//再用DataReader取出数据，设置到窗体的控件上。
你把数据库中的数据查询出来保存在DataSet 中
DataSet 是脱机的数据集，也即与数据库断开的数据集
把DataSet绑定到GridView上，这时候你在GridView上的操作就都是与数据库断开的
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