Go4Expert - sql connectivity

Code:

Dim TableSource As String' Tablename from which records are taken
Dim SearchField As String' Field used in the "Where" clause
Dim SearchString As String' Matching string used in the "Where" clause
Dim SearchValue As Integer' For "Where" clause with numeric field.
'    (Type may be other than Integer)
Dim SortField As String' Field for sorting alpahbetically
Dim SQL As String' This is where we'll put the SQL string
SQL = "Select * from [" & TableSource & "]"

SQL = SQL & " Where [" & SearchField & "] Like ""*" & SearchString & "*"""

SQL = SQL & " Order by [" & SortField & "]"

Data1.RecordSource = SQL

Data1.Refresh

where Data1 is a Form or Report object