Erro no acesso ao DB

[Julie sistemas]

Bom galera, apareceu um erro aqui na conexão com o DB.

Veja a mensagem gerada: "Nenhum valor foi fornecido para um ou mais parâmetros necessários"

Segue abaixo o trecho onde tá dando o erro:

Function pReenche()

  Set rs = New ADODB.Recordset
    
  If anoP = False Then
     sQl = "SELECT ANDAMENTO.COD,ANDAMENTO.CODIGO, ANDAMENTO.COD_ATI, ANDAMENTO.HORAS_PREVISTAS, ANDAMENTO.COD_OS, " & _
     "ANDAMENTO.DATA_INICIO, ANDAMENTO.DATA_FIM, ANDAMENTO.TIPO_SERV, ANDAMENTO.C_CUSTO,ANDAMENTO.PROJETO,ANDAMENTO.COD_CORD"
  Else
     sQl = "SELECT ANDAMENTO.COD,ANDAMENTO.CODIGO,ANDAMENTO.COD_ATI, ANDAMENTO.HORAS_PREVISTAS,ANDAMENTO.COD_OS, " & _
     "ANDAMENTO.DATA_INICIO, ANDAMENTO.DATA_FIM, ANDAMENTO.TIPO_SERV, ANDAMENTO.C_CUSTO,ANDAMENTO.PROJETO, ANDAMENTO.COD_CORD"

  End If
  
  anoP = False
  Set rs = New ADODB.Recordset
  
   [b]rs.Open sQl, data.cn, adOpenKeyset, adLockOptimistic[/b]
  
  Call PreencheFlexGrid(rs, msflexemp)
  
  rs.Close
  Set rs = Nothing
   
  Cmb_Click

End Function

Me ajudem ai...

Vlw...

[Macêdo]

este erro está na instrução SQL, normalmente este erro aparece quando falta ou sobra uma Aspa Dupla ou Simples, coisas deste tipo. Verifique novamente sua instrução SQL com calma, olhando os detalhes. Me desculpe se não for o caso mas, depois que você colocou o Select e o nome dos campos não está mostrando neste codigo o final "FROM TABELA" informando a tabela que você está fazendo o select. tem mais alguma coisa no codigo que você não postou?

[kuroi]

exatamente como o macedo disse, falta o from, o erro deve ser esse.