Geraldo,

Infelizmente não posso te ajudar neste assunto, mas gostaria de te parabenizar pela "caligrafia" utilizada neste teu trecho de programa. Por acaso vens do Pascal?

Fernando

>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
>