Tenho um programa que funciona da seguinte maneira:

 

 Ele localiza os produtos que tem no bd e eu coloco a qntidade e adiciono no list ... como se fosse em um supermercado... só que agora eu tenho que salvar as comprar na tabela vendas e nao consigo... fika dando erro...

 eu colokei o seguinte código:

 

Private Sub Command1_Click()
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:InstallNuinfNathaliaSupermercadoSuper.mdb")
Set tb = db.OpenRecordset("Select * from Venda")

For i = 0 To List4.ListCount - 1
somaDOR = somaDOR + CInt(List4.List(i))

tb.AddNew
tb("Prod_Venda") = CInt(List3.List(List3.ListIndex))
tb("Qt_Venda") = Qt_Venda.Text
tb("Vl_Venda") = CInt(List4.List(List4.ListIndex))
tb("Cod_Prod") = CInt(List6.List(List6.ListIndex))
tb.Update
tb.Close

Next i
total.Text = somaDOR

 

End Sub

 

Obrigada!!!

pq você não usa SQL?

db.execute "INSERT INTO Venda ([Prod_Venda], [Qt_Venda], [Vl_Venda], [Cod_Prod]) VALUES (" & CInt(List3.List(List3.ListIndex)) & ", '" & Qt_Venda.Text & "', " & CInt(List4.List(List4.ListIndex)) & ", " & CInt(List6.List(List6.ListIndex)) & ")"

tb.AddNew
db.Execute "INSERT INTO Venda ([Prod_Venda], [Qt_Venda], [Vl_Venda], [Cod_Prod]) VALUES (" & CInt(List3.List(List3.ListIndex)) & ", '" & Qt_Venda.Text & "', " & CInt(List4.List(List4.ListIndex)) & ", " & CInt(List6.List(List6.ListIndex)) & ")"
'tb("Prod_Venda") = CInt(List3.List(List3.ListIndex))
'tb("Qt_Venda") = Qt_Venda.Text
'tb("Vl_Venda") = CInt(List4.List(List4.ListIndex))
'tb("Cod_Prod") = CInt(List6.List(List6.ListIndex))
tb.Update
tb.Close

Next i
total.Text = somaDOR

 

assim???