Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button6.Click
 
        Dim sql As String = "DELETE FROM adressen WHERE id='" & TextID.Text & _
          "'"
 
        execNQuery(sql)
 
        Me.DataSet11 = Nothing
 ->       [u]Me.DataSet11 = New DataSet
        SqlDataAdapter1.Fill(DataSet11)
 
        Me.DataGrid1.DataSource = Me.DataSet11.Tables(0)
    End Sub

Liebe Gr??e
Nicole

Manche geben schneller auf als die anderen.
Ich geh?re zu den anderen.