Public Sub X()

    Dim cnn As ADODB.Connection
    
    Set cnn = New ADODB.Connection
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=D:\My Databases\dbTest.mdb;" _
      & "Persist Security Info=False"
    
    Call MyFunc(cnn)
    
    cnn.Close
    Set cnn = Nothing
End Sub

Private Function MyFunc( _
  ByVal cnn As ADODB.Connection) As Boolean
  
    Dim rst As ADODB.Recordset
    
    Set rst = cnn.OpenSchema(adSchemaTables, _
      Array(Empty, Empty, Empty, "Table"))
    
    Do Until rst.EOF
        Debug.Print rst!TABLE_NAME
        rst.MoveNext
    Loop
    
    rst.Close
    Set rst = Nothing
End Function