SoloCodigo

Cuando creas el la tabla deberias cargar los datos sin filtrar (SELECT * FROM Vales)

despues filtrarlos mediante el dataTable con el metodo Select , esto te devuelve una matriz de datarows de la cual te interesa la primera...
FilaBuscada as DataRow=Dt.Select("id="& txtid.text)(0);

a FilaBuscada es a quien le vas a volver a asignar los datos para despues atualizarlos con el dataadapter.update(FilaBuscada);

Lo unico que veo es que creas el dataadapter pero no usas el metodo fill del datatable para llenar la tabla con los registros de la consulta select
osea que estas buscando datos en una tabla vacia....

'###################################################
'###################################################
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.

Saludos, Por favor alguien q me ayude. He seguido el hilo del foro. Realicé tal cual. Me Form muestra el cambio pero no se almacena an la tabla. Mi codigo es:
=============================================================================================================================================
ublic Class FrmBuscarAlumno
    Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\BD.mdb;Persist Security Info=True;Jet OLEDB:Database Password=195019760339")
    Dim comandos As New OleDb.OleDbCommand
    Dim dt As New DataTable
    Dim dt2 As New DataTable
    Dim dt3 As New DataTable
    Dim dt4 As New DataTable
    Dim da As New OleDbDataAdapter("SELECT * FROM Alumnos", cnn)
    Dim da2 As New OleDbDataAdapter("SELECT * FROM Cursos", cnn)
    Dim da3 As New OleDbDataAdapter("SELECT * FROM Tipos", cnn)
    Dim da4 As New OleDbDataAdapter("SELECT * FROM Estados", cnn)
    Dim ds As New DataSet
    Dim ds2 As New DataSet
    Dim ds3 As New DataSet
    Dim ds4 As New DataSet
=============================================================================================================================================


    Private Sub CmdGNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdGNuevo.Click
        Try
            'Crear la Tabla
            Dim TablaAlumnos As String = "SELECT * FROM Alumnos"

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

                ' 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("CodAlumno=" & CodAlumnoTextBox.Text)(0)
                ' Asignar los datos de los textbox a la fila
                'asignarDatos(FilaBuscada)
                Modifica("Nombres") = NombresTextBox.Text
                Modifica("Apellidos") = ApellidosTextBox.Text
                Modifica("Direccion") = DireccionTextBox.Text
                Modifica("Telefono") = TelefonoTextBox.Text
                Modifica("CodCurso") = CodCursoTextBox.Text
                Modifica("Foto") = txtfoto.Text
                Modifica("CodTipo") = CodTipoTextBox.Text
                Modifica("CodEstado") = CodEstadoTextBox.Text
                Modifica("Acudiente") = AcudienteTextBox.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()
                cnn.Close()                 '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
    End Sub
End Class