rs.open "SELECT OsCorretiva.CodOs, clientes.fantasia, OsCorretiva.DataChamada, OsCorretiva.Hora, OsCorretiva.ChamadaPor
FROM clientes LEFT JOIN OsCorretiva ON clientes.CodCli = OsCorretiva.CodCliente;"
'Coloca os nomes de campos no cabeçalho do grid
for each campo in rs.fields
grid.cols=grid.cols+1
grid.textmatrix(0,grid.cols) = campo.name
next campo
conta=1
do while not rs.eof
for i% = 1 to fields.count -1
grid.textmatrix(conta, i%) = rs(i%)
next i%
rs.movenext
loop
e era isso