Private Sub cmdLocalizarOrdemCompra_Click()
    If cmdLocalizarOrdemCompra.Caption = "&Localizar Ordem de Compra" Then
        If chkDataEmissao.Value = 1 Then
            If dtpDataFinal.Value < dtpDataInicial.Value Then
                MsgBox "O campo Data Final deve conter uma data maior ou igual à Data Inicial." + vbCrLf + vbCrLf + "Por favor, tente novamente.", vbInformation, "Data de Emissão"
                dtpDataFinal.SetFocus
                Exit Sub
            End If
        End If
       
        SQLPesquisa = "SELECT tbOrdemCompraCab.*, tbFornecedores.NomeFantasia AS NomeFornecedor, tbFornecedores.Contato AS NomeContato FROM tbOrdemCompraCab, tbFornecedores WHERE tbOrdemVendaCab.CodFor = tbFornecedores.CodFor AND tbOrdemCompraCab.Contato = tbFornecedores.Contato "
       
        If IsNumeric(cboOrdemCompra.Text) Then
            SQLPesquisa = SQLPesquisa + "AND (tbOrdemCompraCab.NumOrdemCompra = " + Trim(cboOrdemCompra.Text) + "  + Trim(cboOrdemCompra.Text) + " * ""
        ElseIf Trim(cboOrdemCompra.Text) <> "" Then
            SQLPesquisa = SQLPesquisa + "AND tbFornecedores.NomeFantasia LIKE '*" + Trim(cboOrdemCompra.Text) + "*' "
        End If
       
        If cboStatusOrdemCompra.ListIndex <> 0 Then
            SQLPesquisa = SQLPesquisa + "AND tbOrdemCompraCab.StatusOrdemCompra = '" + Left(cboStatusOrdemCompra.Text, 2) + "' "
        End If
       
        If chkDataEmissao.Value = 1 Then
            SQLPesquisa = SQLPesquisa + "AND tbOrdemCompraCab.DataEmissao BETWEEN #" + Format(dtpDataInicial.Value, "mm/dd/yyyy") + "# AND #" + Format(dtpDataFinal.Value, "mm/dd/yyyy") + "# "
        End If
       
        SQLPesquisa = SQLPesquisa + "ORDER BY tbOrdemCompraCab.DataEmissao"
       
        Set tbOrdemCompraCab = Conexao.OpenRecordset(SQLPesquisa)
        If tbOrdemCompraCab.RecordCount = 0 Then
            tbOrdemCompraCab.Close
            Set tbOrdemCompraCab = Nothing
           
            MsgBox "Não foi encontrado nenhuma ordem de venda cadastrada" + vbCrLf + "baseado nestas informações." + vbCrLf + vbCrLf + "Por favor tente novamente.", vbInformation, "Ordem de Venda Não Cadastrada"
            cboOrdemCompra.SetFocus
            Exit Sub
        End If
        tbOrdemCompraCab.Close
End Sub   

Normalmente isso pe algum campo inexistente.

Tente diminuir o select uma bem simples (mesmo que nao faca o que voce quer). Depois vai colocando as outras informacoes ate voltar a dar erro, ai voce sabe onde esta.

vou tentar, obrigado