Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles btnSave.Click
        Dim sqlPraefInsert As String = "INSERT INTO [tab_PräfPlatz] (" & _
        "Präferenzen_Id,Platz_Id,Präf) VALUES(@PraefId, @PlatzId, @Präf);"
        Dim cmdPraefInsert As New Data.OleDb.OleDbCommand(sqlPraefInsert, conn)
        Dim PraefIDs() As Integer = New Integer(17) {rbl1.SelectedIndex, _
          rbl2.SelectedIndex, rbl2.SelectedIndex, rbl3.SelectedIndex, _
          rbl4.SelectedIndex, rbl5.SelectedIndex, rbl6.SelectedIndex, _
          rbl7.SelectedIndex, rbl8.SelectedIndex, rbl9.SelectedIndex, _
          rbl10.SelectedIndex, rbl11.SelectedIndex, rbl12.SelectedIndex, _
          rbl13.SelectedIndex, rbl14.SelectedIndex, rbl15.SelectedIndex, _
          rbl16.SelectedIndex, rbl17.SelectedIndex}
        cmdPraefInsert.Parameters.Add("PraefId", OleDbType.Integer)
        cmdPraefInsert.Parameters.Add("PlatzId", OleDbType.Integer)
        cmdPraefInsert.Parameters.Add("Praef", OleDbType.Integer)
        conn.Open()
 
        Dim k As Integer = 0
        Do Until k = 17
            cmdPraefInsert.Parameters("PraefId").Value = k
            cmdPraefInsert.Parameters("PlatzId").Value = CInt(txtPlatzID.Text)
            cmdPraefInsert.Parameters("Praef").Value = PraefIDs(k)
            cmdPraefInsert.ExecuteNonQuery()
            k += 1
        Loop
        Response.Redirect("ambstart.aspx", True)
        cmdPraefInsert.Parameters.Clear()
    End Sub