Private Sub Lösche()
        Dim dsTest As New DataSet("Test")
        Dim sql As String = "SELECT * FROM Bilder WHERE Ref_ID = " & _
          api.GUID_String(dt.Rows(0)("Nr"))
        Dim sqlcnBild As New SqlClient.SqlConnection(dal.GetConnectString(, _
        True, "BilderSQL"))
        dal.FillDataset(sqlcnBild, dsTest, sql, "Bilder")
        Dim fi As New System.IO.FileInfo("C:\" & dt.Rows(0)("Nachname") & _
          ".xml")
        If fi.Exists Then fi.Delete()
        dsTest.WriteXml("C:\" & dt.Rows(0)("Nachname") & ".xml")
 
        dal.executesql("DELETE FROM Bilder WHERE Ref_ID = " & api.GUID_String( _
          dt.Rows(0)("Nr")), "BilderSQL")
    End Sub