I used following code in one of my vb project:

Dim PI As Integer
PI = ProductIdtxt.Te xt
rs.Open "select name,quantity_a vailable from product where product_id="&PI &"", db, 3, 1
productNametxt. Text = rs.Fields(0)

But it didn't work. It showed the following error messege

Compile error:
Expected:End of statement

Please give me a solution....