Ola pessoal, valeu mesmo pelas dicas, mas resolvi o problema da seguinte forma:
Criei 2 funções, uma para data inicial e outra para data final conforme abaixo e depois chamei elas dentro da select de pesquisa do mysql e funcionou na boa, vou deixar o código completo aqui, pode ser util para outros usuários do forum.
Em um modulo:
Public Function DataIni(srDTAini As String) As String
Dim cdDIAini As String
Dim cdMESini As String
Dim cdANOini As String
cdDIAini = Format(Day(srDTAini), "00")
cdMESini = Format(Month(srDTAini), "00")
cdANOini = Format(srDTAini, "yyyy")
DataIni = cdANOini & "/" & cdMESini & "/" & cdDIAini
End Function
----------------------------------------------------------------------------------------
Public Function DataFim(srDTAfim As String) As String
Dim cdDIAfim As String
Dim cdMESfim As String
Dim cdANOfim As String
cdDIAfim = Format(Day(srDTAfim), "00")
cdMESfim = Format(Month(srDTAfim), "00")
cdANOfim = Format(srDTAfim, "yyyy")
DataFim = cdANOfim & "/" & cdMESfim & "/" & cdDIAfim
End Function
No local onde se encontra os commandos de pesquisa, como por ex em um botão, onde esta o código referente a consulta no banco de dados. DATAMYSQLINI = DataIni(msk_data_ini.Text)
DATAMYSQLFIM = DataFim(msk_data_fim.Text)
Dim MySqlConItemData As String
Set MyRsConItemData = New ADODB.Recordset
MySqlConItemData = "select * from apontamentos a, itens b where a.IDApontamento and b.IDApontamento and a.DataApto between '" & DATAMYSQLINI & "' And '" & DATAMYSQLFIM & "'"
MyRsConItemData.Open MySqlConItemData, ConnMySql, adOpenKeyset, adLockOptimistic
T+
