Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        Dim Row As DataRow = DS.DB2005_1.NewRow()
        If TextBox1.TextLength = 0 Then
            MessageBox.Show("Bitte Namen eingeben!", "Info!", 0, 64, 0)
            TextBox1.Focus()
            Exit Sub
        End If
        If TextBox2.TextLength = 0 Then
            MessageBox.Show("Bitte Vornamen eingeben!", "Info!", 0, 64, 0)
            TextBox2.Focus()
            Exit Sub
        End If
        If ComboBox1.Text = "" Then
            MessageBox.Show("Bitte Geschlecht auswählen!", "Info!", 0, 64, 0)
            ComboBox1.Focus()
            Exit Sub
        End If
        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
 
       'Position der StatusBar ermitteln
        Dim p As Point
        p = StBar1.Location
 
        ' neue ProgressBar
        Dim pbar As New ProgressBar
 
        ' Größe festlegen
        pbar.Size = New Size(180, Me.StBar1.Height - 4)
 
        ' linken Rand festlegen
        Dim pbarLeft As Integer
        pbarLeft = p.X + Me.StBar1.Panels(0).Width + _
          Me.StBar1.Panels(1).Width
 
        ' Position festlegen
        pbar.Location = New Point(1, 3)
        pbar.Height = StBar1.Height - 3
        pbar.Width = StBar1.Panels(0).Width - (pbar.Location.X * 2)
        pbar.Step = 1
 
        ' ProgressBar der StatusBar hinzufügen
        Me.StBar1.Controls.Add(pbar)
 
        ' Berechnung ausführen
        Dim i As Integer
        For i = 1 To 100
            Threading.Thread.Sleep(20)
            pbar.PerformStep()
        Next
 
        ' ProgressBar wieder entfernen
        Me.StBar1.Controls.Remove(pbar)
 
       'neue Zeile wird hinzugefügt
        DS.DB2005_1.Rows.Add(Row)
        'DataSet wird aktuallisiert
        OleDbDataAdapter1.Update(DS, "DB2005_1")
        MessageBox.Show("Daten wurden gespeichert!", "Info!", 0, 64, 0)
        'alle Felder werden gelöscht 
        AnzeigeLoeschen()
    End Sub

VB@rchiv its the Best