Estoy haciendo un formulario de VB 6.0 y usando SQL server 2000 como BD
al realizar este codigo
Código:
Private Sub btnBusc_Click()
Dim cod As Integer
cod = txtCodBod
If cod = ("select bode_cod,bode_des from bodegas") Then
txtCodBod.Text = bode_cod
txtDesBod.Text = bode_des
End If
End Sub
Private Sub btnGuar_Click()
cod = Val(txtBodCod)
des = UCase(txtBodDes.Text)
End Sub
Private Sub btnLimp_Click()
End Sub
Private Sub Form_Load()
conectar
MsgBox "Conectado"
aa.Close
End Sub
Por lo cual quiero hacer esas acciones y no se como realizarlas
atte Espero su Ayuda
ya que me dice error de tipo de datos en la BD es numeric y no se que tipo de dato se usa en VB