ConnectionString در Access 2013

To reference ADO from Microsoft Visual Basic

1. In Visual Basic, from the Project menu, select References....

2. Select Microsoft ActiveX Data Objects x.x Library from the list

ADO Recordset Object 

objRecordset.Open 

source,actconn,cursortyp,locktyp,opt

CursorType

Set objRecordset= objConnection.OpenSchema(adSchemaTables)

(("Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE 
           Do While Not rs.EOF
        Debug.Print rs.Fields("TABLE_NAME").Value
        rs.MoveNext
    Loop
    rs.Close