With ado1
ado1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xq.mdb;Persist Security Info=False"
ado1.RecordSource = "select * from zhuce"
ado1.Refresh
data1.datasource =ado1
Data1.Refresh
Data1.Row = 3
End With
[此贴子已经被作者于2006-10-20 14:20:09编辑过]