Eso creo que es por la cultura,a mi me pasaba lo mismo en mi proyecto ¬¬. A mi me pasaba que en local(como mi pc es español) pues tenia la cultura es-ES,y cuando subia la BD a internet el servidor era de america y me las almacenaba con la cultura EN-US o algo asi. Asi que en plan "chapucero" lo que hize fue
Cita: Private Function CambiarFecha(ByVal fechacambiar As String) As Date
Dim fechanueva As String
Dim fecha As Date
Dim dia As String
Dim mes As String
Dim año As String
dia = Mid(fechacambiar, 1, 2)
mes = Mid(fechacambiar, 4, 5)
mes = mes.Remove(2, 3)
año = Mid(fechacambiar, 7, 8)
Select Case String.Intern(CultureInfo.CurrentCulture.Name)
Case "es-ES"
fechanueva = dia & "/" & mes & "/" & año
fecha = CDate(fechanueva)
Return fecha
Case "en-US"
fechanueva = mes & "/" & dia & "/" & año
fecha = CDate(fechanueva)
Return fecha
End Select
End Function
A ver si te vale de algo esta solución,a ver si la puedes adaptar o algo,salu2
