Dim DataCnn As New ADODB.Connection Dim DataRst As New ADODB.RecordsetIf DataCnn.State = adStateOpen Then DataCnn.Close If DataRst.State = adStateOpen Then DataRst.Close strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;Data Source=" 表名";" DataCnn.Open strCnn DataCnn.CursorLocation = adUseClient
Str = "select * from " & 表名DataRst.Open Str, DataCnn, adOpenDynamic, adLockOptimistic'关键是最后一个参数' Set DataGrid1.DataSource = DataRst '设置DataGrid1的属性'
Dim DataRst As New ADODB.RecordsetIf DataCnn.State = adStateOpen Then DataCnn.Close
If DataRst.State = adStateOpen Then DataRst.Close
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;Data Source=" 表名";"
DataCnn.Open strCnn
DataCnn.CursorLocation = adUseClient
Str = "select * from " & 表名DataRst.Open Str, DataCnn, adOpenDynamic, adLockOptimistic'关键是最后一个参数'
Set DataGrid1.DataSource = DataRst '设置DataGrid1的属性'