Por si le sirve a alguien, lo he conseguido con este código:
Código:
Dim aux As String
aux = CStr(contacto.mostrarNacimiento)
aux.ToCharArray()
sql = sql & "and nacimiento = #" & aux(6) & aux(7) & aux(8) & aux(9) & "/" & aux(3) & aux(4) & "/" & aux(0) & aux(1) & "#"
End If