Pessoal,

Como faço pra configurar uma conexão ADODB.Connection pra trabalhar com a data formatada no formato DMY. Sei que posso executar a instrução "Set dateformat DMY", que faz o SQLServer trabalhar no formato DMY, mas essa instrução está trabalhando pra, somente, uma execução. Na segunda já não funciona mais como demonstrado abaixo.

Local oConn as ADODB.Connection, lcString as String
***************************************************
oConn = CreateObject("ADODB.Connection")
Text to lcString textmerge noshow pretext 1
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=password;Initial Catalog=scd4;Data Source=Server
EndText
***************************************************
oConn.ConnectionString = lcString
oConn.Open()
oConn.Execute("Set dateformat dmy") && Formata a data da conexão pra DMY
***************************************************
Clear
Set Step On
lcInstruc = "Select top 3 * from Distr where Dis_DT < '18/08/2004'"
rs = oConn.Execute(lcInstruc) && Funciona
?rs.Fields("Dis_DT").Value    && Comprova que o Execute anterior, realmente, funcionou
***************************************************
lcSql  = "Select Ped_Cod from PedCert where Ped_Usu_Imp = 0"
loRS = oConn.Execute(lcSQL) && Executo outro Select qualquer - também funciona
?loRS.Fields(0).Value && Comprova que o Execute anterior, realmente, funcionou
***************************************************
rs = oConn.Execute(lcInstruc) && Agora aquele primeiro Execute não funciona mais dando erro de formato de data