Hola Jhonatan
para poder subir archivos te recomiendo
https://mega.co.nz/
y publicas el enlace..
aqui solo puedes imagenes
saludos

HOLA MEN YA SUBI EL PROYECTO AL DESCOMPRIMIR LA CARPETA ABRELA EL EL DISCO LOCAL C PARA QUE ARRANQUE VALE
LINK: https://mega.co.nz/#!XBVTkaSC!O-7xRXeGPqMXoVnyjaiHWSCur91z0j-AWFz0u6ag34Y

ESPERANDO RESPUESTA... ¿?¿?

Hola amigo, no me dio tiempo a resivarlo del todo, pero pude ver que en los objetos adodc, tienen cadena de conexion y apuntan hacia una tabla, elimina esos objetos, crea nuevos y agrega esto en el load.

dim cadena as string
cadena="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Punto de ventaa.mdb;" & _
"Persist Security Info=False"


Adodc1.CursorLocation = adUseClient
Adodc1.ConnectionString = cadena

Adodc1.RecordSource = "select * from tabla"
Adodc1.Refresh

Set List1.DataSource = Adodc1.Recordsetpara que funcione correctamente

Adodc2.CursorLocation = adUseClient
Adodc2.ConnectionString = cadena

Adodc2.RecordSource = "select * from tabla2"
Adodc2.Refresh


Saludos..

OSEA QUE SEPARE LAS TABLAS CREE 2 FROM ?? PARA SEPARAR LOS ADODC ? O COMO MEN ?

HOLA SEÑOR AL PARECER NO ME HA ENTENDIDO LO QUE DESEO HACER CON EL PROYECTO Y ES LO SIGUIENTE SOLO QUIERO QUE ME AYUDEN HA REALIZAR UN CONTROL DE STOCK DE PRODUCTOS
Bueno tengo un punto de venta que realice con varios tutoriales ya que necesito uno para trabajo final en la U
y pues lo que me piden son varias cosas como que lea codigos de barra imprima ticket y muchas cosas que he ido solucionando una en una pero ahora se pone mas emocionante saber que no logro solucionar el stock donde teniendo una cantidad de productos por ejemplo 10 manzanas y al vender 2 en el inventario me queden 8 para poder asi sacar como un tipo de registro que muestre las ventas del dia... espero me ayuden de ante mano gracias.

SI MIRA EL PROYECTO EN LA LIST3 QUIERO PONERLE COMO UN DataGrid1 LO QUE NO SE ES AL DAR LE CLICK AL BOTON
Private Sub Command8_Click()
APARESCA EL DataGrid1

Private Sub Command8_Click()
List3.Clear
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.MoveNext
While Not Adodc1.Recordset.EOF
List3.AddItem (Text2)
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Visible = True
List3.Visible = True
Text2.Visible = False
Exit Sub
End If
Wend
End Sub