como hago para hacer q busque unos parametros en una base de datos y me los ponga todos los q existen en un list box
osea yo pongo
Private Sub BuscarSiguiente()
Dim nReg As Long
nReg = Val(Text8)
If Option1.Value = True Then
Data1.Recordset.FindNext "precio Like '" & Text8.Text & "'"
End If
eso se coloca en un text box por ej text4.text
pero yo quiero algo asi
List1.AddItem Text10.Text
y q todos los datos de "precio" vallan directo a una lista en list1
esto sirve pero nose como usarlo con lo q necesito
Dim sTmp As String
List1.Clear
On Local Error Resume Next
sTmp = Dir$(Text1.Text)
If Err = 0 Then
Do While Len(sTmp) 'Repetir mientras haya ficheros
List1.AddItem sTmp 'Lo añadimos a la lista
sTmp = Dir$ 'Asignar el siguiente fichero
Loop
End If
Err = 0
End Sub