Update DB Using VB 6.0

[jovsjovel]

Hello Guys, I need Your help.. Because my Code not Working,, VB 6.0 Says: Type Mismatch.

Private Sub Command3_Click()
Dim update As Integer


update = "UPDATE [ProductInfo] SET Price = '" & txtPrice.Text & "' , Quantity= '" & txtQty.Text & "' where BarCode= '" & txtBarCode.Text & "'"
acd.Execute update

MsgBox "Product Updated"
End Sub