'look this over carefully...I changed some things and names
'some intentional and some not...had to recreate it to
'make sure it worked....adjust the names and things to
'your application
.
.this works...tried...tested...& true....(VB6)
'
'
Dim strSQL As String
Dim strPartNumber As String
Dim filepart As String

strPartNumber = txtpartnumber.Text

strSQL = "SELECT * FROM RptPart WHERE PartNumber = '" & strPartNumber & "'"
Data1.RecordSource = strSQL
Data1.Refresh

With Data1.Recordset
While Not .EOF

filepart = Data1.Recordset!PartNumber
List1.AddItem filepart

.MoveNext
Wend

End With


[This message has been edited by Juillet (edited 07-31-1999).]