Private Sub Command1_Click()
Adodc2.RecordSource = " select * from Tablenae where Fieldaname = " & Text1.Text & ""
If Adodc2.Recordset.EOF = True Then
MsgBox "Record not found"
Else
DataGrid1.datasource = Adodc2.recordsource
DataGrid1.Refresh
End If
End Sub
sa datagrid yan tol,, alam mo namn cguro pano mag connect
Private Sub Command1_Click()
Adodc2.RecordSource = " select * from Tablenae where Fieldaname = " & Text1.Text & ""
If Adodc2.Recordset.EOF = True Then
MsgBox "Record not found"
Else
DataGrid1.datasource = Adodc2.recordsource
DataGrid1.Refresh
End If
End Sub
sa datagrid yan tol,, alam mo namn cguro pano mag connect