conexión de base de datos Access

base de datos de conector sub ()
 'El primer paso: tenemos que utilizar ADO referencia AD herramientas
 ' Paso 2: crear un objeto de conexión
 '2-1: tomar el nombre del objeto de conexión, declarar un objeto
 ' Dim conn Como ADODB.Connection 'declarar una variable de objeto
' 2-2: crear variable de objeto, y asignar
'Set conn = New ADODB.Connection' para crear una variable de objeto
'tercer paso: establecer una base de datos de acceso a la conexión de base de datos
' conn.Open "Provider = Microsoft.ACE.OLEDB.12.0; datos fuente = "& ThisWorkbook.Path &" \ Accdb gestión de los estudiantes "
'que conecta el documento de Excel
' conn.Open" Provider = Microsoft.ACE.OLEDB.12.0; extendidos propiedades de Excel 12.0; Data source = "& ThisWorkbook.Path &" \ data .xlsx "
Dim conn de As New ADODB.Connection
Con conn
　　.Provider =" Microsoft.ACE.OLEDB.12.0 "
　　.ConnectionString = ThisWorkbook.Path &" \ Accdb gestión de los estudiantes "
　　.Abrir
Fin Con
MsgBox "conexión exitosa"
conn.Close
End Sub