Dim strFiltro
Dim strSql
If cmbNome <> "" Then
strFiltro = strFiltro + "FAVORECIDO = '" & cmbNome & "'"
End If
If cmbCNPJ <> "" Then
strFiltro = strFiltro + " AND CNPJ = '" & cmbCNPJ & "'"
End If
If cmbBanco <> "" Then
strFiltro = strFiltro + " AND BANCO = '" & cmbBanco & "'"
End If
if Mid(strFiltro,2,3)="AND " then strFiltro = mid(strFiltro,5,len(strFiltro)-5)
If strFiltro <> "" Then
Set Dados_Gerais = db.OpenRecordset("Select * From Dados_Gerais Where " & strFiltro)
If Not Dados_Gerais.EOF Then
Dados_Gerais.MoveMin
txtExiste = Dados_Gerais!CONTA
End If
Else
strSql = "Select * From Dados_Gerais"
txtExiste = "Não"
End If
