SoloCodigo

'###################################################
'###################################################
SOLUCIONADO
'###################################################
'###################################################
Por si a alguien le sirve..


Try
            'Crear la Tabla
            Dim tablaVales As String = "SELECT * FROM Vales"

            ' Crear un nuevo objeto del tipo DataAdapter
            Using da = New OleDbDataAdapter(tablaVales, conexion)

                ' Crear los comandos de insertar, actualizar y eliminar
                Dim cb As New OleDbCommandBuilder(da)

                dt = New DataTable

                ' Llenar la tabla con los datos indicados
                da.Fill(dt)

                ' Crear un nuevo registro
                Dim Modifica As DataRow = dt.Select("Id=" & txtId.Text)(0)
                ' Asignar los datos de los textbox a la fila
                'asignarDatos(FilaBuscada)
                Modifica("Numero") = txtNumero.Text
                Modifica("Fecha") = dataFecha.Value
                Modifica("Familia") = cboFamilia.Text
                Modifica("Maquina") = cboDescripcion.Text
                Modifica("Horas") = txtHoras.Text
                Modifica("Precio") = txtPrecio.Text
                Modifica("Total") = txtTotal.Text

                ' Añadir la nueva fila a la tabla
                'dt.Rows.Add(FilaBuscada)

                ' Guardar físicamente los datos en la base
                da.Update(dt)

                dt.AcceptChanges()

                'Cerramos el Form
                Me.Close()

            End Using

        Catch ex As Exception
            MessageBox.Show("La Tabla esta Vacia, por lo que no se podran visualizar registros anteriores" & vbCrLf & _
                            ex.Message, "Conectar con la base", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

Gracias... Me has enfocado a la solución.

Hola!
Primero que nada Gracias... por tu contestación tan rapida.
Mira lo he hecho asi:

'==================================================
'==================================================
Try
            'Crear la Tabla
            Dim tablaVales As String = "SELECT * FROM Vales"


            ' Crear un nuevo objeto del tipo DataAdapter
            Using da = New OleDbDataAdapter(tablaVales, conexion)

                ' Crear los comandos de insertar, actualizar y eliminar
                Dim cb As New OleDbCommandBuilder(da)

                dt = New DataTable

                ' Llenar la tabla con los datos indicados
                da.Update(dt)

                ' Crear un nuevo registro
                Dim FilaBuscada As DataRow = dt.Select("Id=" & txtId.Text)(0)
                ' Asignar los datos de los textbox a la fila
                'asignarDatos(dr)
                FilaBuscada("Numero") = txtNumero.Text
                FilaBuscada("Fecha") = dataFecha.Value
                FilaBuscada("Familia") = cboFamilia.Text
                FilaBuscada("Maquina") = cboDescripcion.Text
                FilaBuscada("Horas") = txtHoras.Text
                FilaBuscada("Precio") = txtPrecio.Text
                FilaBuscada("Total") = txtTotal.Text

               
                da.Update(FilaBuscada)

                FilaBuscada.AcceptChanges()
               
                'Cerramos el Form
                Me.Close()

            End Using
'==================================
'==================================

Pero me da error... en la linea: da.Update(FilaBuscada)
Me subrraya la linea diciendo: Error de resolución de sobrecarga porque ninguna de las funciones Update a las que se tiene acceso, se puede llamar con estos argumentos.

Que es lo que tengo mal?

Gracias

Tengo un modulo con lo siguiente:

==========================================================================================================================
==========================================================================================================================
'Importamos los namespaces
Imports System.Data
Imports System.Data.OleDb
Imports System.Windows.Forms.Form

Module Conexiones

    'Variables
    Public dt As DataTable
    Public da As OleDbDataAdapter
    'Conexión con la mdb
    Public conexion As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\192.168.44.220basesdedatosAgenda.accdb;Persist Security Info=False")
    'La cadena de selección, una por cada Tabla que queramos abrir
    Public TdatosId As String = "SELECT Id,Nombre,Cp,Poblacion,Tel1,Tel2,Mov1,Mov2,Mail FROM Datos ORDER BY Id"
    Public TdatosNombre As String = "SELECT * FROM Datos ORDER BY Nombre"
    Public EliminarRegistro As String = "DELETE FROM Datos WHERE Id=4"

End Module
===========================================================================================================================
===========================================================================================================================

En el Evento clic de un boton con el cual quiero eliminar el registro con el Id=4…

===========================================================================================================================
===========================================================================================================================
Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
       
        Try

            'Crear un nuevo objeto del tipo DataAdapter
            da = New OleDbDataAdapter(EliminarRegistro, conexion)

            'Crear los comandos de insertar, actualizar y eliminar
            Using cb As New OleDbCommandBuilder(da)

                Dim cmd As New OleDbCommand(EliminarRegistro)

                da.Fill(dt)

                cmd.ExecuteNonQuery()

                'Llenar la tabla con los datos indicados


            End Using

        Catch ex As Exception
            MessageBox.Show("ERROR al conectar o recuperar los datos:" & vbCrLf & _
                            ex.Message, "Conectar con la base", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

        ' propiedades del datagrid  
        ' '''''''''''''''''''''''''''''''''''''  
        With dgvDatos
            ' alternar color de filas  
            .AlternatingRowsDefaultCellStyle.BackColor = Color.FloralWhite
            .DefaultCellStyle.BackColor = Color.RosyBrown
            ' Establecer el origen de datos para el DataGridview  
            .DataSource = dt
        End With
========================================================================================================================
========================================================================================================================

Lanza el siguiente Error
Titulo: Conectar con la base
ERROR al conectar o recuperar los datos:
ExecuteNonQuery: la propiedad Connection no se ha inicializado

Pero el regitro con el Id=4 lo elimina de la Base de Datos…

Alguien sabe como puedo depurar este código para que no lance el error?
O si lo puedo hacer mejor de otra forma?
Gracias.