selecting Data in combobox

What is wrong with this statement?
using vb6 with sp4. Trying to populated text boxes with data from ado database. Vb6 crashes when this sub is run

Private Sub ItemSelected()
sSql = "Select * From Customertable Where Name = '" _
& DBCombo1.Text & "'"
Set Data1.Recordset = Data1.Database.OpenRecordset(sSql)
End Sub

I can add a msgbox to this sub and it will not crash but it will add 2 copies of whatever is selected and clear remaining items in combobox?


thanks

i am very bad with data control
why dont you use pure ado instead of the ado control?
its much easier and better

I really want to learn to do this and I cannot quit because this is fastest way I have found to search this database which is about 2000 records long. So if someone could respond with an answer of teach me a better way to search this customer list.
Again thanks

Hi, firstly let me tell u this is not the complete solution. The purpose of this is to try and give an idea. Firstly, i think u ought to use...
---combo1.list(combo1.listindex)--- to get the selected item.

Secondly, take pains in debugging the Sql statement before u run it.

Thirdly, before u populate the combo box make sure u delete the previous contents in it. May be that is the reason u are getting them twice.

Fourthly, i think a general feeling among the programmer community is not to use data controls as they dont give u as much control over the data as the code does.

Hope this would give u some idea and help u in deciding for urself. Feel free to mail to [email protected].

All the best...vijay

Have you tried placing a Doevents before the end sub


e.g.



your code...

doevents

end sub