Dim vnt_colRS As Variant: Dim mysqlstr As String

Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
    "SERVER=localhost;" & _
    "DATABASE=wynk;" & _
    "USER=root;" & _
    "PASSWORD=root;" & _
    "Option=3"
        Set rs = oConn.Execute("SELECT * FROM tblZip order by zip desc Limit 100")
        Do While Not rs.EOF
            Debug.Print rs.Fields("Zip").Value
            rs.MoveNext
        Loop

  Debug.Print oConn.ConnectionString
  oConn.Close