Dim sqlcb as SqlClient.SqlCommandBuilder
sqlcb = New SqlClient.SqlCommandBuilder(sqlAdap)
 
        If MsgBox("Soll die Filiale " & Me.txtfilialname.Text.ToUpper & "" & _
          "wirklich gelöscht werden?", MsgBoxStyle.YesNo, "Löschen") = _
          MsgBoxResult.Yes Then
            Try
                drow.Delete() 'Die aktuelle Datarow löschen (wird in anderer 
                ' Sub gefüllt)
                sqlAdap.DeleteCommand = sqlcb.GetDeleteCommand 'Vom Dataadapter 
                ' den entsprechenden Deletecommand holen
 
                sqlAdap.Update(sqlds, "tbl_filialstamm") 
                sqlds.Tables("tbl_filialstamm").AcceptChanges()
                sqlAdap.DeleteCommand.Connection.Close()
            Catch ex As SqlClient.SqlException
                MsgBox("Der Fehler " & ex.Message & vbCrLf & " ist" & _
                  "aufgetreten", MsgBoxStyle.Critical, "Fehler beim Löschen")
            End Try
        End If
End Sub

Dim sqlcmd as SqlClient.SqlCommand = new SqlClient.SqlCommand
 
try
  with sqlcmd
      .commandtext = "DELETE FROM Deine_Tabelle where ID = '" & me.txtID.Text & _
        "'" 
      .connection = Deine_Conn : .connection.open
      .ExecuteNonQuery 'DELETE-String direkt an DB schicken
      .Connection.Close
      .Dispose()
catch ex as sqlclient.sqlexception
    msgbox("Fehler beim Löschen: " & ex.message,MsgBoxStyle.Critical, "Fehler" & _
      "beim Löschen")
end try