debes declarar estas variables:
Código:
'Crear una instancia de conexión
Dim conexion As OleDb.OleDbConnection
'Hace los datos legibles para crear instancias de un origen de datos
Dim adaptador As OleDb.OleDbDataAdapter Dim constructor As OleDb.OleDbCommandBuilder
'Sirve para construir comandos y consultas SQL'
Dim reader As OleDb.OleDbDataReader
cualquier otro error avisa.