Private Sub Command3_Click()
Dim mystr
mystr = Text1.Text

Adodc2.RecordSource = "select * From yy where number='" + mystr + "'"
Adodc2.Refresh
DataGrid1.DataSource = Adodc2
End Sub

为什么DataGrid1.DataSource = Adodc1出错啊!我是做一个查询!数据库为 access

[此贴子已经被作者于2007-1-9 0:54:41编辑过]