Public Function ExecuteNonQuery(sql As String, ByVal ParamArray para() As  _
      KeyValuePair(Of String, Object)) As Int32
        Dim con As SqlConnection = GetConnection()
        Dim cmd As SqlCommand = con.CreateCommand()
        cmd.CommandText = sql
        For Each parameter As KeyValuePair(Of String, Object) In para
            cmd.Parameters.AddWithValue(parameter.Key, parameter.Value)
        Next
        Return cmd.ExecuteNonQuery() 
    End Function

    Public Sub CreateUserWithLogin(userID As Integer, Passwort As String)
        Using database As New Database(True)
            CreateLogin(database, userID, Passwort)
            database.Commit()
        End Using
    End Sub