Identify the issues in the code below

Set con = CreateObject("ADODB.Connection") 
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;
Data source=C:\...\Database1.accdb" 
rs = con.Execute("select * from Table1") 
rs.MoveFirst 
Do While rs.EOF     
    Msgbox rs.Fields(0).Name & " : " &rs.Fields(0).Value & " " & rs.Fields(1).Name & " : " &rs.Fields(1).Value & " " & rs.Fields(2).Name & " : " & rs.Fields(2).Value  
Loop 
rs.Close 
con.Close  

Issue1) SQL query is issued as an argument to an incorrect method Issue2) Condition with the loop is incorrect Issue3) Code is not designed navigate to the next record in the recordset Issue4) Connection string is incorrectly formed Issue5) Msgbox cannot display data from Database Issue6) Set keyword is missing in a statement