Shared Sub ConnectDatabase()
Dim id as String = clsBenutzer.Kürzel
conn.ConnectionString = "Persist Security Info=False;database=irgendwas;user" & _
  "id=" + id
cmd.Connection = conn
Try
    conn.Open()
Catch ex As MySqlException
    Errorhandler("Es wurde ein Fehler beim Öffnen der Datenbank festgestellt.", _
      CType(ex, System.Exception))
End Try
End Sub