Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(1) = Trim(Text1.Text)
End Sub
Private Sub Command2_Click()
Adodc2.RecordSource = "select * from 表1 where xz='" & Trim(Text1.Text) & "'"
Set DataGrid2.DataSource = Adodc2
Adodc2.Refresh
End Sub