Put Info from a data row to a listbox In VB6

[Sunray]

Hi

I trying to get a single row of data onto a lisbox
Reason: It is a sales form i have created , what i would like to ultimately achieve is this, On the form there is a list box and dropdown combo and it is linked to data1, when the sales person clicks on the dropdown combo a list of items in the database appear via a dbgrid with that name: for example if he clicked on paint only the paint items would appear and the then from the dbgrid he selects the one withe correct description and it is added to the list box which would the form part of the reciept, then a button would be clicked to confirm the sale but i just cant seem to get the selected row in the dbgrid to be added to the listbox can this be done or am i going about it in completely the wrong way. Should I maybe use a multi line textbox ?

If so please tell i'm barking up the wrong tree and point direction to the right tree
I am using VB6 with access97

Many Thanks

[Sunray]

Hi

I trying to get a single row of data onto a lisbox
Reason: It is a sales form i have created , what i would like to ultimately achieve is this, On the form there is a list box and dropdown combo and it is linked to data1, when the sales person clicks on the dropdown combo a list of items in the database appear via a dbgrid with that name: for example if he clicked on paint only the paint items would appear and the then from the dbgrid he selects the one withe correct description and it is added to the list box which would the form part of the reciept, then a button would be clicked to confirm the sale but i just cant seem to get the selected row in the dbgrid to be added to the listbox can this be done or am i going about it in completely the wrong way. Should I maybe use a multi line textbox ?

If so please tell i'm barking up the wrong tree and point direction to the right tree
I am using VB6 with access97

Many Thanks

Hey guys i got this thing to work for me
Here is the code

Private Sub Command1_Click()
List1.Visible = True
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Stocksdb1. mdb", False, False)
Set rs = db.OpenRecordset("Select Distinct Surname from customers")
DoEvents
List1.Clear
rs.MoveFirst
While Not rs.EOF
List1.AddItem rs!Surname
rs.MoveNext
Wend
rs.Close
End Sub

Private Sub Command2_Click()
List1.Visible = True
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Stocksdb1. mdb", False, False)
Set rs = db.OpenRecordset("Select Item from items")
DoEvents
List1.Clear
rs.MoveFirst
While Not rs.EOF
List1.AddItem rs!Item
rs.MoveNext
Wend
rs.Close
End Sub

This worked for hope some else out there can use it

[VBPhilly]

Hey guys i got this thing to work for me
Here is the code

Private Sub Command1_Click()
List1.Visible = True
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Stocksdb1. mdb", False, False)
Set rs = db.OpenRecordset("Select Distinct Surname from customers")
DoEvents
List1.Clear
rs.MoveFirst
While Not rs.EOF
List1.AddItem rs!Surname
rs.MoveNext
Wend
rs.Close
End Sub

Private Sub Command2_Click()
List1.Visible = True
Set db = DBEngine.Workspaces(0).OpenDatabase("c:\Stocksdb1. mdb", False, False)
Set rs = db.OpenRecordset("Select Item from items")
DoEvents
List1.Clear
rs.MoveFirst
While Not rs.EOF
List1.AddItem rs!Item
rs.MoveNext
Wend
rs.Close
End Sub

This worked for hope some else out there can use it

Thanks for replying when you found the solution