Function dbverbinden() As Boolean
Dim sConn As String
Dim sServer As String
Dim sUserName As String
Dim sPassword As String
Dim sDBName As String
 
On Error GoTo err_f
 
Set cn = New ADODB.Connection
 
' Server Hostname (oder IP)
sServer = "toflo.no-ip.com"
 
' Benutzerdaten
sUserName = "asdfasdf"
sPassword = "öljwer"
 
' Datenbank-Name
sDBName = "radiobase"
 
sConn = "Provider=MSDASQL;Driver=MySQL ODBC 3.51 Driver;" & "Server=" & sServer _
  & ";Database=" & sDBName
cn.Open sConn, sUserName, sPassword
 
dbconnected = True
dbverbinden = True
Exit Function
err_f:
MsgBox "Fehler beim Verbindungsaufbaue: " & vbNewLine & Err.Description
End Function

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim sql, modi As String
 
modi = "master"
 
sql = "SELECT * FROM dinfo WHERE mod='" & modi & "'"
 
With rs
    .Source = sql
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open
End With
 
Do Until rs.EOF = True
    With rs
        .Fields("mod").Value = "mistmaster"
        .Update
        .MoveNext
    End With
Loop
 
rs.Close
End Sub