Hello Guys, I need Your help.. Because my Code not Working,, VB 6.0 Says: Type Mismatch.
Code: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