Problemas Con ComboBox VB 6

[lokoman]

Hola!
Debes hacer una consulta en base al evento Click del Combobox1. Ejemplo:

Código vb:

Sub Combobox1_Click()
   Dim rsData as adodb.recordset, strQuery as string
   set rsData=new adodb.recordset
   Combobox1.clear
 
   strQuery="SELECT CAMPO1 FROM TABLA WHERE CODIGO_ALFA='" & Trim(Combobox1.text) & "'"
 
   rsData.source=strQuery
   rsData.open , Conexion
   if rsData.eof=false then
      do while rsData.eof=false
         Combobox3.additem rsData!CAMPO1
         rsData.movenext
      loop
 
      Combobox3.text=Combobox3.list(0)
   end if
 
   if rsData.state=1 then rsData.close
   set rsData=nothing
End Sub
 

Recuerda tener una referencia a "Microsoft ActiveX Data Objects 2.x Library"