try
Dim cb As OleDbCommandBuilder
cnAccess = New OleDbConnection(cadenaA)
DAaccess = New OleDbDataAdapter("Select * from TABLA", cnAccess)
DAaccess.Fill(DSaccess, "TABLA")
cb = New OleDbCommandBuilder(DAaccess)
dr = DSaccess.Tables("TABLA").NewRow
dr(0) = Me.txtOrden.Text
dr(6) = Me.txtRevision.Text
DSaccess.Tables("TABLA").Rows.Add(dr)
DAaccess.Update(DSaccess, "TABLA")
MessageBox.Show("Grabados los datos")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try