change
Code:
dsNewRow = runDS.Tables("Run").NewRow
to
Code:
dsNewRow = runDS.Tables("Runs").NewRow

or simply

runDA.Fill(runDS, "Runs") to runDA.Fill(runDS, "Run")