Sub dbverbinden()
Dim strDriver, strServer, strUsername, strPassword, strDatabase, strcomplete As _
  String
 
Set cn = New ADODB.Connection
 
strDriver = "DRIVER=MySQL;"
strServer = "SERVER=http://toflo.no-ip.com;"
strUsername = "UID=radioBaseAdmin"
strPassword = "PWD=xootmaster"
strDatabase = "DATABASE=radioBase;"
strcomplete = strDriver & strServer & strUsername & strPassword & strDatabase
 
With cn
    .ConnectionString = strcomplete
    .Provider = "MSDASQL"
    .Mode = adModeRead
    .CursorLocation = adUseClient
    .Open
End With
 
End Sub