como puedo ingresar con un cuadro de control formulario excel a un archivo de access

[rolano]

Esta es la respuesta
Private Sub CmdAccess_Click()
Dim DbPath As String
Dim oApp As Access.Application
Dim Password As String

DbPath = "C:\Documents and Settings\Usuario\Mis documentos\Liderman Premiun\BD\BDVisitas.mdb"
Password = "cesar"

' instanciamos una nueva ventana de Access
Set oApp = New Access.Application
With oApp
' la hacemos visible

.Visible = True
' abrimos la base de datos
.OpenCurrentDatabase DbPath, False, Password

' abrimos una tabla de esa base de datos
.DoCmd.OpenTable "Visitas"


'abrimos un formulario de esa base de datos (opcional)
'.DoCmd.OpenForm "Areas"
' abrimos un informe de esa base de datos
'.DoCmd.OpenReport "Informe1", acViewPreview
' ejecutamos una función de esa base de datos
'.Run "MiFuncion"
End With
Set oApp = Nothing
End Sub