Visual Basic.NET - campo texto acces que admina cero al principio

Hola amigos
no consigo que en un campo de texto en acces 2010 me inserte una variable con un cero al principio:
01-julio
02-julio
lo que me inserta es:
1-julio
2-julio

Dim cadenasql As String = ("SELECT * FROM movimientos WHERE id = (SELECT MAX(id) FROM movimientos)")
Dim adaptador As New OleDbDataAdapter(cadenasql, conex)
adaptador.Fill(Ds)
For Each row As DataRow In Ds.Tables(0).Rows
numrelacion = (row.Item("relacion").ToString())
Next
cadena = Mid(numrelacion, 1, 2) ''' aqui incremento los dos primeros numeros del campo
cadena = cadena + 1
If cadena < 10 Then cadena = "0" & cadena
numrelacion = cadena & "-" & mes_letra '' mes_letra es el mes en el que estamos, en letra
Ds.Clear()

Inserto la variable numrelacion en mi base de datos y pone todo pero sin el cero.
alguien me orienta?
GRACIAS!

es un texto pero lo esta reconociendo como fecha, verifica el tipo de dato, debería ser del tipo string o texto