[Resolvido]Ajuda com conexão a BD Access usando VBA

Olá,
Estou tendo dificuldades em conectar a um banco de dados "bdAltAdm" do Access 2000.
Já tentei usar o ADOBD, mas não deu certo.

Objetivo: Quero criar uma conexão com o banco de dados e acessar a tabela "TEL", consultar todos os nomes da tabela e comparar se existe nomes iguais ao digitado no formulário formTel, no campo NOME.

Código:


    Function VerificaNomesIguais(Texto)
    Dim conn As ADODB.Connection
    Dim SQL As String
    Dim rst As ADODB.Recordset
     
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    conn.CursorLocation = adUseClient
   
    ' estabele a conexão
    With conn
        .Provider = "Provider=Microsoft.Jet.OLEDB.3.6;"
        .ConnectionString = "Data Source=H:\Projeto Acces\bdAltAdm.mdb;"
        .Open
    End With

    SQL = "SELECT NOME FROM TEL"
    rst.Open SQL, conn, adOpenStatic, adLockOptimistic
   
    'db.Execute SQL, dbInconsistent
    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing
   
    For i = 1 To SQL
    If Texto = i Then
        MsgBox "Nome Já Existe", , "Atenção"
    End If
    Next
    End Function


Se puderem me dizer o que está errado nessa conexão ou me dar uma outra solução para esse problema, eu agradeço.

Se o problema é mesmo dentro do bd ao preencheres um campo podes ver aqui um exemplo feito de outra forma:

http://maximoaccess.forumeiros.com/t16974-resolvidorun-time-error-3420

Código:

Private Sub Texto37_AfterUpdate()
'********************************************
'Code sample courtesy of srfreeman
'Adaptado por Harysohn - Fórum Maximo Access
'em 26/01/2014
'********************************************
Dim SID As String
Me.Rótulo26.SetFocus
SID = Me.Numero.Value
'Check StudentDetails table for duplicate StudentNumber
If DCount("numero", "pessoas", "[Numero] = '" & SID & "'") > 0 Then
  Me.Undo
  Dim Rs As Object
  Set Rs = Me.Recordset.Clone
  'Message box warning of duplication
  MsgBox "Aviso Documento " _
          & SID & " Já foi inserido." _
          & vbCr & vbCr & "Vai ser redireccionado para o respectivo registo.", vbInformation, "Documento Duplicado"
  Rs.FindFirst "[Numero] = '" & SID & "'"
  If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark
End If
Set Rs = Nothing
End Sub

Olá Toyebom,

Obrigado pela sugestão, mas seguindo a mesma lógica de seu código, usei a função DLookup() que tem os mesmos parâmetros de DCount e funcionou para o campo nome.

Resolvido.