[vb6] Data1 & Combo.addItem come?

[axsw]

lascia perdere la combo1 fai così
io uso un listBox ma con un comboBox non dovrebbe cambiare nulla

Option Explicit
Dim mydata As Database
Dim myrecord As Recordset

Private Sub Form_Load()
  Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
    Set myrecord = mydata.OpenRecordset("tuatabella")
     If myrecord.EOF Then
    MsgBox "Nessun nome nel database di questo Sistema", vbInformation, "nomedeltuoprogramma"
     Else
     myrecord.MoveFirst
        Do Until myrecord.EOF
        combo1.AddItem myrecord.Fields("tuocampo")
        myrecord.MoveNext
    Loop
   End If
    mydata.Close

Probabilmente ti serve anche fare un refresh di caselle di testo quando l'utente fà click nel combo1 e si fà così

Private Sub combo1_Click()
    On Error Resume Next
        Set mydata = OpenDatabase(App.Path + "\" + "tuodatabase.mdb")
        Set myrecord = mydata.OpenRecordset("tuatabella")
        myrecord.MoveFirst
        Do Until myrecord.EOF
            If combo1.Text = myrecordc!tuocampo Then
' Da quì in poi ci sono textBox che uso io, tu cambiale con le tue
                txtnomec.Text = myrecordc!nome
                txtforc.Text = myrecordc!fornitore
                txtcodc.Text = myrecordc!cod
                txtfiniturac.Text = myrecordc!finitura
                txtnotec.Text = myrecordc!misure
                txtprc.Text = myrecordc!prezzo
                txtdatac.Text = myrecordc!Data
                txtscontoC.Text = myrecordc!sconto
                End If
            myrecord.MoveNext
        Loop
 End Sub

Ciao.