Código:

Hola y Gracias de Antemano...
 
[COLOR="Blue"]Necesito un Código que configure a un Combo Box para que presente los datos Guardados en una BD Access en un Formulario...
Tambien que el mismo Permita el Registro de nuevas Opciones al combo Box a ser almacenadas en la Base de Datos de Microsoft Access 2003...[/COLOR]
 
[COLOR="Red"]TAMBIÉN necesito un código que configure al Formulario1 para que solo se active cinco segundos a partir de la ejecucion del proyecto, y luego dirija automáticamente para otro formulario...
 
Es para que se active tipo INTRO de un Programa[/COLOR]
 
ESO SOLAMENTE POR AHORA

[QUOTE=renee;44867][HIGHLIGHT="vb"]Hola y Gracias de Antemano...

Necesito un Código que configure a un Combo Box para que presente los datos Guardados en una BD Access en un Formulario...
Tambien que el mismo Permita el Registro de nuevas Opciones al combo Box a ser almacenadas en la Base de Datos de Microsoft Access 2003...

TAMBIÉN necesito un código que configure al Formulario1 para que solo se active cinco segundos a partir de la ejecucion del proyecto, y luego dirija automáticamente para otro formulario...

Es para que se active tipo INTRO de un Programa

ESO SOLAMENTE POR AHORA
Bien aca coloco como llenas un ComboBox, vamos por parte dijo Jack

Código:

Private Sub CargarEmpresa()
Dim strSQL As String
Dim rs As New ADODB.Recordset
strSQL = "SELECT Idempresa,razonsocial FROM empresa ORDER BY idempresa"
rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
REFRESCAR rs
With Me.cmbempresa [COLOR="Lime"]cmbempresa es el nombre del combo[/COLOR]
    .Clear
    Do Until rs.EOF
        .AddItem rs("razonsocial")
        .ItemData(.NewIndex) = rs("idempresa")
        rs.MoveNext
    Loop
    If .ListCount Then .ListIndex = 0
End With
rs.Close
Set rs = Nothing
End Sub

Aca como llamas la funcion:

Código:

Private Sub Form_Load()
CargarEmpresa
...........
End Sub

Existen muchas otras formas, por ejemplo si vas a necesitar estos datos en otros formularios tambien con un combo box puedes generar la funcion en un modulo bas o standard, en forma pública y llamarla cada vez que lo necesitas.
Para el temporizador, cargas un objeto timer y podria ser algo asi, yo lo uso para colocar clave de ingreso

Código:

Private Sub Timer1_Timer()
  Dim I As Integer
  Static c%
  c = c + 1
  lblTiempo.Caption = Str(20 - c) & " segundo(s)"
  If c = 20 Then
     CmdSalir_Click
  End If
End Sub

Espero te sirva.