用ADO链吧,什么数据库都可以链 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.ConnectionTimeout = 100 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\data.mdb;User Id=admin;Password=;" rs.CursorLocation = adUseClient rs.Open "select * from student", cn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rse:\data.mdb为数据库,student为表名
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionTimeout = 100
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\data.mdb;User Id=admin;Password=;"
rs.CursorLocation = adUseClient
rs.Open "select * from student", cn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rse:\data.mdb为数据库,student为表名