Fechas FoxPro

[Laufwerk]

Hola amigos !!
Tengo dos combobox que los relleno mediante este codigo

Código:

Private Sub SetDateCombos()
Set rsMyDate = New ADODB.Recordset
Dim sql As String
sql = "SELECT pfec_pet FROM peticio WHERE pcod_mut LIKE '" & cmbMut.Text & "'"

rsMyDate.Open sql, sql_provider, adOpenStatic

While Not rsMyDate.EOF
    Me.cmbDataIni.AddItem Format(rsMyDate!pfec_pet, "dd/mm/yyyy")
    Me.cmbDataFi.AddItem Format(rsMyDate!pfec_pet, "dd/mm/yyyy")
    rsMyDate.MoveNext
Wend
End Sub

En la base de datos se guarda mm/dd/aaaa, pero como podeis comprobar lo muestro dd/mm/aaaa.

Mi consulta es la siguiente, estoy realizando un formulario que me tiene que mostrar los resultados entre las fechas ini y fin, pero si cojo los valores de combo me salta error de formato, por lo que tengo que volver a convertirlo mediante una funcion mía, o puedo que al hacer clic en la búscqueda me lea el formato de fecha de otro formato?

Espero haberme explicado


Gracias de antemano

[Laufwerk]

Suponiendo que tubiera que crearme una función, cómo puedo cortar un campo del tipo fecha dd/mm/aaaa por el caracter / para así obtener 3 variables, dia, mes ,año


Por lo que he visto tengo que hacer la consulta en n futuro con el siguiente formato {mm/dd/aaa} para FoxPro


Gracias!!!