У меня стоит SQL SERVER2000. Я подклучаюсь к базе в Visual Basic6.0 применяя метод подключения ADO через ODBC. У меня не действует запрос
указанный ниже. Общая моя кодировка выглядит так:


Private Sub Command1_Click()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=51;uid=;pwd=;"
Set ado = New Recordset
Dim sql As String
sql = "select* from SPR_51 where fam like " + "'" + Text1.Text + "%" + "'"
ado.Open sql, db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = ado
End Sub
Помогите пожалуйста что надо делать чтобы действовал запрос указанный
выше в sql = "select* from SPR_51 where fam like " + "'" + Text1.Text + "%" + "'"
этой строке. Благодарю заранее