Private Sub Command1_Click()
Adodc_index.RecordSource = "select * from table1 where ID = '1000022'"
Adodc_index.refresh
set datagrid1.datasource=adodc_index.recordset
DataGrid1.Refresh
End Sub