Try
            If My.Settings.Connectionstring = Nothing Then
                MessageBox.Show("Es besteht keine Verbindung zur Datenbank!" & _
                  vbNewLine & "Bitte erstellen Sie die Verbindung manuell!", _
                  "Datenbankverbindung", MessageBoxButtons.OK, _
                  MessageBoxIcon.Exclamation)
            Else
                Open.FileName = My.Settings.Connectionstring
                Me.TableTableAdapter.Connection.ConnectionString = _
                  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                  Open.FileName
                Me.TableTableAdapter.Fill(Me.GSMDatabaseDataSet.Table)
            End If
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString, MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
 
        End Try

TableBindingSource.AddNew()

Try
            Me.Validate()
            Me.TableBindingSource.EndEdit()
            Me.TableTableAdapter.Update(Me.GSMDatabaseDataSet.Table)
 
        Catch ex As Exception
            MessageBox.Show(ex.ToString, MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try

Me.GSMDatabaseDataSet.Tables("Table").Rows(ListBox1.SelectedIndex).Delete()

Gruß
Christoph