Visual Basic.NET - farmato datos

hola, tengo un textbox donde introdusco un dato "001", al enviar esta informacion a la base de datos me la almacena como "1", que debo hacer para conservar lo que escribi en el textbox, teniendo en cuenta que en la base de datos el campo es varchar. gracias por su ayuda

una opcion seria convertir el valor del text aunque no entiendo porque te guarda 1 si tu campo es varchar a no ser que en tu funcion de insertar le hayas puesto el tipo de dato como Integer
si estas insertando con un procedimieto almacenado asegurate que el campo codigo sea varchar y que tenga la misma longitud que tiene en la Base
@codigo Varchar(5)

haber prueba esto cstr(txtcodigo.text)

cstr = te convierte a String

ya lo inetente y no me da este es el codigo que tengo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim iResultado As Integer
' asignar valores a los parámetros para el
' comando de inserción
oDataAdapter.InsertCommand.Parameters("@Codigo").Value = CStr(Me.TxtCod.Text)
oDataAdapter.InsertCommand.Parameters("@Descripcion").Value = Me.TxtDesc.Text
' abrir conexión
oConexion.Open()
' ejecutar comando de inserción del adaptador
iResultado = oDataAdapter.InsertCommand.ExecuteNonQuery()
' cerrar conexión
oConexion.Close()
Me.CargarDatos()
MessageBox.Show("Registros añadidos: " & iResultado)
End Sub