Njnews;para mim não tem nada de mistério ai.A formatação de datas respondidas por

outras pessoas aqui do site,estão correta como a do Treze.Não coloque formatação

da data no Private Sub txtData_Change.Digite sua data normal no txtData.Agora na

consulta coloca: Sql="Select * From suaTabela Where Data = '" & Format(txtData, "YYYY/MM/DD") & "'".Ai você pode colocar a formatação que quiser na consulta com esta.