[Resolvido]Usando o DCount em um banco externo

Amigos como utulizar essa linha para contar valores em um Backend Desvinculado?

If DCount("[Selecionado]", "[E_Mails]", "Selecionado = -1") = 0 Then


Se puderem ajudar fico grato

Estou tentando assim tambem mas não estou a conseguir... precido de uma dica..

StrContar = ("select count(Selecionado) from Contatos IN '" & StrPathLocal & "'" _
& " where Selecionado=-1")

Preciso contar um valore boleano na tabela (Sim/Não)
Se contiver um registro selecionado
Me devolve a contagem
para que eu possa utilizar uma cláusula IF


Se puderem me ajudar fico grato

Bem amigos.. solucionei da seguinte forma:


Private Sub BtnEnviar_Click()
Parametros_de_Inicializacao "SysPen.par"
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail
Dim strEnderecos As String
Dim stremail
Dim StrEnvio
Dim db As Database
Dim dbBanco As Database
Dim StrPathLocal As String
Dim NomeBD As String
Dim StrMensagem As String
Dim ws As DAO.Workspace
Dim Contador As Long
Dim rst As Recordset
NomeBD = "Syspen_be_Local.accdb"
StrMensagem = Me.txtMensagem

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")


'String com path para conexão com a base de dados.
StrPathLocal = DirBancoDados & NomeBD
' Conecta ao banco de dados

Set dbBanco = OpenDatabase(StrPathLocal)

Set rst = db.OpenRecordset("select count(Selecionado) as Tot from Contatos where Selecionado=-1")
Contador = rst!tot

If Contador = 0 Then
MsgBox Contador

MsgBox "Não foi selecionado e-mail para o envio" & vbCrLf & _
"Cancelando a operação!", vbCritical, "Atenção"
Exit Sub
Else

strEnderecos = "SELECT Contatos.[IDContato], Contatos.[OrgaoPublico]," _
& "Contatos.[Contato], Contatos.[email], Contatos.[Função]," _
& "Contatos.[Endereço], Contatos.[Cidade], Contatos.[Estado]," _
& "Contatos.[CEP], Contatos.[Pais], Contatos.[Telefone]," _
& "Contatos.[Fax], Contatos.[Selecionado] From Contatos IN '" & StrPathLocal & "'" _
& " WHERE Selecionado = -1;"

Set rst = CurrentDb.OpenRecordset(strEnderecos)

Do Until rst.EOF
stremail = strDestinatarios & rst("email")
strDestinatarios = Left(stremail, Len(stremail)) & ";"

MsgBox stremail
rst.MoveNext
Loop
StrEnvio = Left(strDestinatarios, Len(strDestinatarios) - 1)
strTitulo = "teste"
strMensagemCorpoDoEmail = StrMensagem

On Error Resume Next
DoCmd.SendObject , , , StrEnvio, , , strTitulo, strMensagemCorpoDoEmail, True, False

rst.Close
Set rst = Nothing
End If
End Sub

Saudações

Three in one

hehehe