Dim dbCn       As rdoConnection          ' Описатель источника базы данных

    Set dbCn = New rdoConnection           ' Открыть базу данных
    dbCn.Connect = "DSN=myDSN;"          ' Соединиться с источником

    Dim rsVers As rdoResultset
    Set rsVers = dbCn.OpenResultset("SHOW VARIABLES like 'version'")
    MySQLVersion = rsVers!Value
    If Mid(rsVers!Value,  1 ,  4 ) <= "4.0." Then   ' Если не версия 4.0.
       MsgBox "Не поддерживается работа с MySQL версии ниже 4.1!", vbCritical
       End
    End If
    dbCn.Execute "SET NAMES 'cp1251'"
    rsVers.Close