Hola xylvyna. No veo que tengas definido el DataSet Ds. En cualquier caso, puedes no recurrir a una DataSet y rellenar directamente una tabla DataTable:
Código:
Dim Da As New SqlDataAdapter
Dim Dt As DataTable
Da.SelectCommand = cmd
Da.Fill(Dt)
grdCompetidores.DataSource = Dt
grdCompetidores.DataBind()
A ver si así te marcha.
Un saludo.