Verbindung zu MySQL Datenbank

Public oConn As ADODB.Connection
Sub MySqlInit()
If oConn Is Nothing Then
Dim str As String
str = "Driver={MySQL ODBC 8.0 Unicode Driver};SERVER=mein.domain.de;DATABASE=meine_db;PORT=3306;UID=mein_benutzername;PWD=123456;"
Set oConn = New ADODB.Connection
oConn.Open str
End If
End Sub

Set oConn = New ADODB.Connection

[Microsoft][ODBC Driver Manager] Der Datenquellename wurde nicht gefunden, und es wurde kein Standardtreiber angegeben.