Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        Dim Row As DataRow = DataSet11.DB2005_1.NewRow()
 
         With Row
            .Item("Name") = TextBox1.Text
            .Item("Vorname") = TextBox2.Text
            .Item("Geburtsdatum") = DateTimePicker1.Value.Date
            .Item("Geschlecht") = ComboBox1.Text
            .Item("Test1") = CheckBox1.Checked
            .Item("Test2") = CheckBox2.Checked
            If RadioButton1.Checked = True Then
                .Item("bezahlt") = 1
            Else
                .Item("nicht bezahlt") = 2
            End If
        End With
 
        DataSet11.DB2005_1.Rows.Add(Row)
        Me.OleDbDataAdapter1.Update(DataSet11, "DB2005_1")
        MessageBox.Show("Daten wurden gespeichert!", "Info!", 0, 64, 0)
 
    End Sub

VB@rchiv its the Best