*una funcion que me conecte a al access
usuario y password
* la sentencia como como leer el access
* y como agregar un valor
y que me pueda explicar de forma facil yo tengo algo pero no se si esta bien y si me va funcionar
MODULO
Option Explicit
Public enlace As New ADODB.Connection
Public Function AbrirConexion(NombreBD As String)
Dim ErrorBD As ADODB.Error
On Error GoTo Error
Set AccessConexion = New ADODB.Connection
With AccessConexion
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "c:\MI_ACCESS.mdb" & NombreBD & ";Jet OLEDB:Database Password= **** "
.Open
End With
Exit Function
Error:
For Each ErrorBD In AccessConexion.Errors
MsgBox ("Error VB:" & ErrorBD.Number & vbCrLf _
& "Error Access:" & ErrorBD.NativeError & vbCrLf _
& "Error SQL:" & ErrorBD.SQLState & vbCrLf _
& "Generado Por:" & ErrorBD.Source & vbCrLf _
& "Descripción:" & ErrorBD.Description)
Next
End Function
-------------------------------------------------------------------------------
FORMULARIO
???????????????? aqui tengo duras y quiero saver si me falta en el modulo algo

gracias
