Несоотвествие типов данных в запросе - VB

Формулировка задачи:

Помогите разобраться что я делаю не так? вот код процедуры:
Private Sub Command1_Click()
 Dim cmd, sql As String
    cmd = "Provider=microsoft.jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\balance.mdb"
    Set cn = New ADODB.Connection
        With cn
            .ConnectionString = cmd
            .Open
        End With
         sql = "select nmrah, opis from spravrah where nmrah = '*" & a & "*' and opis = '*" & b & "*'"
         Set rs = New ADODB.Recordset
                With rs
                .ActiveConnection = cn
                .Source = sql
                .Open sql, cn, adOpenKeyset, adLockOptimistic
            End With
            rs("nmrah") = Text1.Text
            rs("opis") = Text2.Text
            rs.Update
            Flex1.Refresh
             Set rs = Nothing
   cn.Close
   Set cn = Nothing
End Sub
a и b переменные уровня формы (a as integer; b as string). Во время выполнения вылетает ошибка: "несоотвествие типов данных в выражении условия отбора". Прошу, направить на путь истинный!

Код к задаче: «Несоотвествие типов данных в запросе - VB»

textual
sql = "SELECT nmrah, opis FROM spravrah WHERE nmrah = '" & a & "' and opis = '" & b & "'"

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.571 из 5


СОХРАНИТЬ ССЫЛКУ