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