Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        'SQL-String erzeugen
  Dim sql_string As String = "UPDATE [Recordings] SET [Filename]=@Filename" & _
    "WHERE [RECID]=@RECID"
 
  Dim cmd As New System.Data.SqlClient.SqlCommand(sql_string, _
    ToolsTableAdapter.Connection)
 
  cmd.Parameters.AddWithValue("@Filename", NameTextBox.Text )
  cmd.Parameters.AddWithValue("@RECID", 1 )
 
  try
    cmd.Connection.Open()
 
    For i = 0 To 9
      cmd.Parameters("@RECID").Value = i
      cmd.ExecuteNonQuery()
    Next i
 
  Catch ex as Exception
    ' hier was sinnvolles machen
  Finally
    cmd.Connection.Close()
  End Try
 
        'Daten neu einlesen...
  ToolsTableAdapter.Fill(Me.TestDatabaseDataSet.Tools)
 
End Sub