Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Data Source=E:\1\db1.mdb;User Id=Admin;Password=;"
    
    rst.Open "SELECT Name " _
      & "FROM MSysObjects " _
      & "WHERE Type=-32757", cnn, , adLockReadOnly
    
    Do Until rst.EOF
        Debug.Print rst!Name
        rst.MoveNext
    Loop
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing