Public Conn As New ADODB.Connection
Dim namadb As String

Public Sub buat_koneksi()
Dim ConnString, db_name, db_server, db_port, db_user, db_pass As String

'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = namadb
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306"    'default port is 3306
db_user = "root"    'sebaiknya pakai username lain.
db_pass = ""
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
    .ConnectionString = ConnString
    .Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub

buat_koneksi_Error:
    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub

Public Sub setDB(database_name)
namadb = database_name
End Sub