Public cn As New ADODB.Connection
 
Sub dbverbinden()
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
 
Set cn = New ADODB.Connection
 
sServer = "http://toflo.no-ip.com"
 
' Benutzerdaten
sUserName = "bla"
sPassword = "blabla"
 
' Datenbank-Name
sDBName = "radioBase"
 
sConn = "Provider=MSDASQL;Driver=MySQL;" & _
        "Server=" & sServer & ";Database=" & sDBName
 
' Connection öffnen
cn.Open sConn, sUserName, sPassword
 
End Sub
 
Sub dbtrennen()
cn.Close
End Sub