'需引用Microsoft ActiveX Data Objects 2.7 Library Dim adoConn As ADODB.Connection Dim adoRS As ADODB.Recordset Set adoConn = New ADODB.Connection adoConn.CursorLocation = adUseClient adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\abc.mdb" Set adoRS = New ADODB.Recordset adoRS.Open "select * from hycao", adoConn '<--根据treeview的不同选项更改SQL语句 Set DataGrid1.DataSource = adoRS
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Set adoConn = New ADODB.Connection
adoConn.CursorLocation = adUseClient
adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= c:\abc.mdb"
Set adoRS = New ADODB.Recordset
adoRS.Open "select * from hycao", adoConn '<--根据treeview的不同选项更改SQL语句
Set DataGrid1.DataSource = adoRS