VB Code:
  1. Private Sub cmdsearch_Click()

  2. Dim strSearch As String

  3. Dim SQLString As String

  4. [B]Set DataGrid1.Recordset= DataEnvironment1.....[/B]

  5. End Sub