Duda Visual Basic codigo

[AxaCrosS]

Estoy haciendo un formulario de VB 6.0 y usando SQL server 2000 como BD
al realizar este codigo

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