SoloCodigo

Bueno, como dice el tìtulo tengo un leve problema con las bases de datos.
Paso a comentar:
El programa en si es una batalla naval.
Los datos que se van a guardar, son los jugadores y los juegos.
Cree una base de datos con dos tablas, la tabla Jugador y la tabla Juego.
(Es la primera vez que hago bases de datos.)
Este es el código que tengo para guardar en la base de datos.:

 Public Overrides Function Guardar(ByVal Objeto As Object) As RetornosError
        Dim c As OleDbConnection
        Try
            c = New OleDbConnection(Me.CadenaConexion)
            c.Open()
            Dim unDs As New DataSet
            Dim unDa As New OleDbDataAdapter("Select * from Juegos", c)
            unDa.FillSchema(unDs, SchemaType.Source, "Juegos")
            unDa.Fill(unDs, "Juegos")
            c.Close()
            Dim unaFila As DataRow = unDs.Tables(0).NewRow()
            Dim comando As New OleDbCommandBuilder(unDa)
            unDa.InsertCommand = comando.GetInsertCommand
            unaFila.Item("Nombre_Jugador") = Objeto.Nombre_Jugador
            unaFila.Item("Puntaje") = Objeto.Puntaje
            unaFila.Item("Nivel") = Objeto.Nivel
            unaFila.Item("Intento") = Objeto.Intento
            unaFila.Item("Tiempo") = Objeto.Tiempo
            unaFila.Item("Id") = Objeto.Id
            'Aca se agregan los datos a la base de datos
            unDs.Tables(0).Rows.Add(unaFila)
           unDa.Update(unDs, "Juegos")
            Return RetornosError.Ok
        Catch
            Return RetornosError.OtroError
        End Try
    End Function

Cuando lo ejecuto y chequeo linea por linea no tira ningún error, pero si chequeo el unDs en tiempo de ejecución me dice que tengo que indexar los datos.

Alguna idea de que está pasando o de como solucionarlo?

Desde ya muchas gracias