no se visualiza bien (VB6)

[banzai]

Mirar este codigo................esta dentro de un else y entra perfectamente

sql = ""
cantProd = cantProd + rs.Fields("cantidad")
sql = "UPDATE Mesa set cantidad=" & cantProd & ""
sql = sql & " Where idMesa=" & txtMesa.Text & " and idProducto=" & codProd & ""
'ConectarBd db, rs, sql
'MsgBox sql
Set rs = db.Execute(sql)
sql = ""
'sql = "Select cantidad from mesa where idMesa=" & txtMesa.Text & " and idProducto=" & codProd & ""
'Set rs = db.Execute(sql)

'MsgBox rs.Fields("cantidad")
txtCodigo.Text = "" 'limpio

verDatosMesa factESP 'visualizo
Exit Sub 'salgo
----------------------------
Pues despues del update haciendo un select si que me visualiza perfectamente los campos.Este select no lo utilizo para nada...Simplemente hice una prueba para ver si era problema de la ejecucion al hacer el update...si lo quito no lo visualiza no se si me seguis..
gracia.....:((((