Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Dim Test As String = NameTextBox.Text
        Dim i As Long
 
        'SQL-String erzeugen
        Dim sql_string As String
 
        'SQL-Befehlsobjekt erzeugen
        Dim cmd As System.Data.OleDb.OleDbCommand
 
        For i = 0 To 9
            sql_string = "UPDATE Recordings SET Filename='" & NameTextBox.Text _
              & "' WHERE RECID=" & i
            cmd = New System.Data.OleDb.OleDbCommand(sql_string, _
            ToolsTableAdapter.Connection)
            cmd.Connection.Open()
            cmd.ExecuteNonQuery()
            cmd.Connection.Close()
        Next i
 
        'Daten neu einlesen...
        ToolsTableAdapter.Fill(Me.TestDatabaseDataSet.Tools)
    End Sub
End Class