Metodo Fill dentro de un for.

[FgGallego]

Hola gente
Tengo el siguiente código.

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
                    da.Fill(ds, "tabla")
                Catch ex As Threading.ThreadAbortException
                Catch ex2 As Exception
                End Try

....
Next

Resulta que al estar el fill dentro de un For, cada vez que el comienza, la tabla "tabla" se rellena con los nuevos datos mas los antiguos. Con lo cuál la tabla se va llenando de información repetida. 'ds.Tables("tabla").clear()' antes de 'da.Fill(ds, "tabla")' no me ha servido, ya que da error. Supongo que porque la tabla aún no se ha creado.
¿Cómo consigo que en cada iteración los contenidos de "tabla" sean diferentes?

Gracias de antemano.