Plantilla de Excel para completar datos de acceso a Vba

1. En primer lugar, verifique si la base de datos ACCESS está conectada correctamente. El código que proporcionó no está disponible

dim cn como adodb.connection

set cn=nueva conexión adodb.

cn.open "driver={controlador de acceso de microsoft (*.mdb)};uid=admin;pwd=;dbq=" & ruta\nombre de la base de datos.mdb

2, declaración de consulta

dim rs como adodb.recordset

dim tsql como cadena

tsql="Seleccione * Desde el registro Donde [número ]='"+ texto1 .Valor + "'"

set rs=new adodb.recordset

rs.open tsql,cn,1,3

3. Importe los datos para Especificar celdas

sheet1.range("C4")=rs.fields("Name")

...