No me muestra los datos que quiero

[lokoman]

Bueno, chequea:

• Propiedades del DataCombo1:

BoundColumn=Nombre del Campo
DataField=Nombre del Campo
ListField=Nombre del Campo que presentará el DataCombo

• Codigo:

Código vb:

Private Sub Form_Load()
    Cargar
    Presentar_Datos
End Sub
 
Private Sub Cargar()
    On Error Resume Next
    
    Dim rstUNIDADES As ADODB.Recordset
    Set rstUNIDADES = New ADODB.Recordset
 
    With rstUNIDADES
        .ActiveConnection = CONEXION
        .Open "select unidades(selctunidadmaest) as dtc1 from unidades"
    End With
 
    Set DataCombo1.RowSource = rstUNIDADES
 
    IF rstUNIDADES.STATE=1 THEN rstUNIDADES.CLOSE
    Set rstUNIDADES = Nothing
End Sub
 
Private Sub Presentar_Datos()
    coef.Text = "1 " & DataCombo1.BoundText  & " = " & relauni(1).Text & " " & Text1(0).Text
End Sub
 

Lo mas sencillo es usar un Combo normal y cargarlo asi:

Código vb:

Dim rstUNIDADES As ADODB.Recordset
    Set rstUNIDADES = New ADODB.Recordset
 
    With rstUNIDADES
        .ActiveConnection = CONEXION
        .Open "select unidades(selctunidadmaest) as dtc1 from unidades"
    End With
 
   cboNormal.Clear
 
   If rstUNIDADES.EOF = False Then
      Do While rstUNIDADES.EOF = False
         cboNormal.AddItem rstUNIDADES!DTC1
         rstUNIDADES.MoveNext
         DoEvents
      Loop
   Else
      cboNormal.AddItem "No hay datos"
   End if