using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.Data.OleDb;


namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {

            DataTable dt = new DataTable();
            OleDbConnection oConexion = new OleDbConnection() ;
            OleDbCommand ocom=new OleDbCommand();
         //   OleDbCommandBuilder cBuilder = new OleDbCommandBuilder(r)

            oConexion.ConnectionString = WindowsFormsApplication1.Properties.Settings.Default.conexionBBDD;

            oConexion.Open();

            ocom.Connection = oConexion;

            ocom.CommandText = ("SELECT * FROM Contactos");
          
            OleDbDataAdapter oadapter = new OleDbDataAdapter(ocom);

           
            dataGridView1.DataSource = dt;
            oadapter.Fill(dt);

            

            oConexion.Close();
        }

Dim xlapp
Dim xllibro
Dim xlhoja
xlapp = CreateObject("Excel.Application")
 xllibro = xlapp.workbooks.add
xlhoja = xllibro.worksheets("Hoja1")
xlapp.visible = True

  Dim consejero As String = Mid(linea, 202, 5)

  Dim stn As OleDb.OleDbConnection
        Dim cmd As OleDb.OleDbCommand ' escritor
        Dim lector As OleDb.OleDbDataReader ' lector
        stn = New OleDb.OleDbConnection
        stn.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Usuario\Desktop\prueba\TABLAS_PRUEBA.accdb") ' conexion
        stn.Open()

       cmd = New OleDb.OleDbCommand
            cmd.Connection = stn
            cmd.CommandText = "select DENOMINACION FROM TABLAS_PRUEBA WHERE CONSEJERO = " & consejero & " "


            lector = cmd.ExecuteReader ' lector conectado con lector del escritor
            Do While lector.Read
                Console.WriteLine({0}, lector ("DENOMINACION"))
            Loop
         
 xlhoja.cells(fila, 4).value = LO QUE LEA DEL ACCESS..

            lector.Close()

     xlhoja.cells(fila, 2).value = fecha_nacimiento
            xlhoja.cells(fila, 2).NumberFormat = " \a d \d\e MMMM \d\e yyyy"

  If sexo = "1" Then
                sexo_text = "nacido"
            ElseIf sexo = "2" Then
                sexo_text = "nacida"
            End If

  xlhoja.cells(fila, 2).value = sexo_text & fecha_nacimiento
            xlhoja.cells(fila, 2).NumberFormat = " \a d \d\e MMMM \d\e yyyy"