MySQL + DAO

Понедельник, 06 Апреля 2015 г. 20:53 + в цитатник

Уважаемые знатоки, добрый вечер,
Помогите реализовать конект к базе MySQL с доступа к данным через DAO.
Пробую делать так,

Dim oConn As Object
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};" & _
        "SERVER=xxx;" & _
        "DATABASE=xxx;" & _
        "UID=xxx;" & _
        "PASSWORD=xxx;" & _
        "PORT:3306;" & _
        "charset=cp1251;" & _
        "Option=3;TABLE=xxx"

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from " & oConn & "")