datacombo no carga mas de 1 valor
mejor utiliza un combo normal e introduce el siguiente codigo
Rstclientes.MoveFirst 'El recordset
While Not Rstclientes.EOF ' mientras no sea fin de archivo
lsclientes = IIf(IsNull(Rstclientes("crazonsocial")), "**Ninguno**", Trim(Rstclientes("crazonsocial")))
FrmCotizacionInd.Cbocliente.AddItem lsclientes
Rstclientes.MoveNext
Wend
y con eso tienes, bye
Rstclientes.MoveFirst 'El recordset
While Not Rstclientes.EOF ' mientras no sea fin de archivo
lsclientes = IIf(IsNull(Rstclientes("crazonsocial")), "**Ninguno**", Trim(Rstclientes("crazonsocial")))
FrmCotizacionInd.Cbocliente.AddItem lsclientes
Rstclientes.MoveNext
Wend
y con eso tienes, bye