Cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + SSPath
        Dim conexion As OleDbConnection = New OleDbConnection(Cadena)
        Dim datadap As OleDbDataAdapter
        tablaClientes = New DataTable()
        tablasParaMovimientos = New DataSet()
        Try
            conexion.Open()
            datadap = New OleDbDataAdapter("select S_CLAVE as Equivalencia, S_NOMBRE as Nombre_Completo, S_RFC as RFC, S_CURP as CURP, S_IFE as IFE, S_DOMICILIO_FISCAL AS Domicilio_Fiscal, S_DIRECCION_PARTICULAR as Domicilio_Particular, S_CIUDAD as Ciudad, S_CODIGO_POSTAL as Codigo_Postal, S_FECHA_NACIMIENTO as Fecha_Nacimiento, S_LADA & S_TELEFONO as Telefono, S_LADA & S_TELEFONO_1 as Celular, S_REPRESENTANTE as Representante from SOCIOS", conexion)
            datadap.Fill(tablaClientes)
            datadap = New OleDbDataAdapter("select B.S_Clave as Equivalencia, B.PQ_CONTRATO as num_contrato, (A.CO_IMPORTE + A.CO_INTERES_NORMAL + A.CO_INTERES_MORATORIO + A.CO_OTROS + A.CO_IVA) AS mon_movimiento, A.CO_RECIBO as num_movimiento, '1' as cod_operacion, A.CO_BANCO AS cod_inst_mon,'1' as cod_grupo, A.CO_FECHA_COBRO AS fec_mov from Cobros A, Prestamo B where A.PQ_CLAVE = B.PQ_CLAVE", conexion)
            datadap.Fill(tablasParaMovimientos)
            datadap = New OleDbDataAdapter("select B.S_Clave as Equivalencia, B.PQ_CONTRATO as num_contrato, (B.PQ_IMPORTE + B.PQ_OTROS + B.PQ_IVA) AS mon_movimiento, A.CO_RECIBO as num_movimiento, '1' as cod_operacion, A.CO_BANCO AS cod_inst_mon,'1' as cod_grupo, B.PQ_FECHA_OPERACION AS fec_mov from Cobros A, Prestamo B where A.PQ_CLAVE = B.PQ_CLAVE", conexion)
            datadap.Fill(tablasParaMovimientos)