Public Function update(ByVal tablename As String) As DataTable
        Return request("update " & tablename & " set " & antike.grid.Columns( _
          1).HeaderText _
                       & "='" & antike.grid.Rows(0).Cells(2).Value.ToString & _
                       "' where " _
                       & antike.grid.Columns(0).HeaderText & "=" & _
                       antike.grid.Rows(0).Cells(0).Value)
End Function
 
Public Class antike
 
    Protected gateway As New Antikegateway
    Protected _table As DataTable
    Protected ds As New DataSet
 
 Private Sub btn_show_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btn_show.Click
        _table = gateway.getall(box_tab.SelectedItem)
        updategrid()
    End Sub
 
 Private Sub updategrid()
 
        grid.Columns.Clear()
 
        For Each col As DataColumn In _table.Columns
 
            grid.Columns.Add(col.ColumnName, col.ColumnName)
 
        Next
        For Each row As DataRow In _table.Rows
            grid.Rows.Add(row.ItemArray)
 
        Next
    End Sub
 
 Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btn_ok.Click
        _table = gateway.update(box_tab.SelectedItem)
        _table = gateway.getall(box_tab.SelectedItem)
        updategrid()
 
    End Sub
End Class
 
Bitte überlegt mal mit was das problem ist...
 
danke