urente!! repeticion de datos combo

[Insomnia]

Hola

Carga el control con una select en lugar de con una tabla, en la select incluye la clausula DISTINCT para que no repita valores y luego carga el combo. Lo puedes hacer desde código de la siguiente forma:

Código vb:

Private Sub Form_Load()
 
    Dim comando As String
    
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prueba.mdb;Persist Security Info=False"
    comando = "select DISTINCT(nombre) from Datos"
    Adodc1.CommandType = adCmdUnknown
    Adodc1.RecordSource = comando
    Adodc1.Refresh
    
    While not Adodc1.EOF
       combo1.additem adodc1.Recordset.Fields(0)
       adodc1.Recordset.MoveNext
    Wend
End Sub
 

P.D.: En el ejemplo utilizo un control ADODC en lugar del DATA

--Saludos--