Hola buenas noches, espero alguien pueda ayudarme, esque no se nada de visual pero estoy haciendo el intento.. kisiera que alguien me ayude ya que necesito que de un combobox de vb6 me muestre datos de campos en vb6, pero no todos los registros. Supongamos que solo necesito del registro 10 al registro 20 de un campo.
Ahora todo esto lo hice sin ado ni dao, aun no se hacerlo asi, y pues antes que eso tengo un boton de buscar y los resultados me los arroja en el combobox pero me arroja todos los registros del campo, y solo kiero un cierto numero de registros en mi combobox
alguien me puede ayudar????????????

mi codigo es este
Private Sub Command3_Click()
Buscar = InputBox("Ingrese el Nombre Del Artista.", "Buscando Publicacion")
Data1.Recordset.FindFirst "Artista='" & Buscar & "'"
If Data1.Recordset.NoMatch Then
Mensaje = MsgBox("No existe dicho artista.", vbCritical, "Final de la Busqueda")
End If

While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("Titulo").Value
Data1.Recordset.MoveNext
Wend
Label13.Visible = True
Combo1.Visible = True
End Sub

porfavor ayudenme , no se nada de visual basic , todo el dia he estado aki pero ya no se me ocurre nada
esto es lo mas que pude hacer y me funciona bien

Hola Ashly: Prueba con éste código a ver como te va


Private Sub Command3_Click()

Buscar = InputBox("Ingrese el Nombre Del Artista.", "Buscando Publicacion")

SQL = "select * from <NOMBRE DE TU TABLA> "
SQL = SQL & "where Artista = '" & Buscar & "'"
Me.Data1.RecordSource = SQL
Me.Data1.Refresh


If Me.Data1.Recordset.RecordCount < 0 Then
Mensaje = MsgBox("No existe dicho artista.", vbCritical, "Final de la Busqueda")
Else
For I = 1 To Me.Data1.Recordset.RecordCount
Me.Combo1.AddItem Me.Data1.Recordset!Titulo
Me.Data1.Recordset.MoveNext
Next I
End If

Me.Label13.Visible = True
Me.Combo1.Visible = True

End Sub