Привет,народ!
Я новичок в VB и кому-то моя проблема покажется смешной,но
всё-равно,помогите!
На форме из DBCOMBO выбирается фамилия и при нажатии кнопки(cmdFind) из базы
данных выбираются остальные атрибуты клиента с данной фамилией(имя,дата
рождения и т.д.) и заносятся в текстовые поля.
Выдает такую ошибку - "Invalid SQL statement;expected DELETE,
INSERT,PROCEDURE,SELECT or UPDATE"
Помогите кто может!Заранее благодарен,Евгений

----------------------------------------------------------------------------
----------------------
Private Sub cmdFind_Click()
Dim srnm As String
Dim cmd As String
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

'присваиваем переменной выбранное значение в DBCOMBO'
srnm = dbc1.Text

'Создаём переменную со строкой подключения'
cmd = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security
Info=False;Data Source=D:\VB98\My projects\Lombardas\Lombardas.mdb"

'Устанавливаем соединение с базой данных'
Set cn = New ADODB.Connection
cn.ConnectionString = cmd
cn.Open

'Создаём запрос'
sql = "SELECT * FROM tblCustomers WHERE surname LIKE dbc1.Text"

'Открываем рекордсет'
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, 100 -------ТОРМОЗИТ НА ЭТОЙ СТРОКЕ!!!!!!!!
txtname.Text = rs("name")

'Закрываем рекордсет'
rs.Close

'Уничтожаем рекордсет'
Set rs = Nothing

'Закрываем подключение'
cn.Close

'Уничтожаем объект подключения'
Set cn = Nothing
End Sub
----------------------------------------------------------------------------
---------------------