Option Explicit
Public oConnect As ADODB.Connection
Private Sub ConnectionDB()
Dim S As String
Set oConnect = New ADODB.Connection
S = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & Sheets("config").Range("B1").Text & ";" & _
"DATABASE=" & Sheets("config").Range("B2").Text & ";" & _
"USER=" & Sheets("config").Range("B3").Text & ";" & _
"PASSWORD=" & Sheets("config").Range("B4").Text & ";" & _
"Option=3"
[COLOR="#FF0000"] oConnect.Open S[/COLOR]End Sub