Metodo Fill dentro de un for.

[claudiovega]

Debes limpiarla.

Código:

For i = 0 To numeroDeAmigos - 1 Step 1
                Amigo= ds.Tables("Amigos").Rows(i).Item("Id")

                Dim da As New OleDbDataAdapter("SELECT * FROM [Amigos] WHERE [Acción] = " & accion & " ;", conexion)
                Try
                    ds.Tables("tabla").Clear()
                    da.Fill(ds, "tabla")
                Catch ex As Threading.ThreadAbortException
                Catch ex2 As Exception
                End Try

....
Next