Código (vb) [Seleccionar]
Private Sub Command1_Click()
Combo1.ListIndex = Val(Text1.Text)
End Sub
No se si te referias a esto

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Command1_Click()
Combo1.ListIndex = Val(Text1.Text)
End Sub
Cita de: kuroi shonen spider en 6 Diciembre 2010, 21:52 PM
es ignorantev1.1
sub XXX()
Dim datos(0 To 3) As Variant
datos(0) = txtNombre
datos(1) = txtDireccion
datos(2) = txtTelefono
Call bdNuevo(bdMain.Recordset, datos())
end sub
Public Sub bdNuevo(tdb As Recordset, datos() As Variant)
Dim i As Integer
tdb.AddNew
For i = 0 To UBound(datos)
tdb.Fields(i) = datos(i)
Next
tdb.Update
End Sub
Data type conversion error!