Visual Basic

how to display user data after login in vb

Hola a todos, necesito de su valiosa ayuda para vincular dos DataGridView pero estoy teniendo un problema debido que me muestra el siguiente mensaje justamente en esta parte de codigo y es el siguiente: (El argumento 'column' no puede ser nulo. Nombre del parametro: Column) y no me permite vincularlo, me gustaria que me pudieran ayudar a encontrar el error de antemano muchas gracias  

Parte del código donde muestra el mensaje de error

    With ds

                .Relations.Add("Indice", _
                               ds.Tables("pa_Listar_Empresa").Columns("db_codigo_empresa"), _
                               ds.Tables("pa_Listar_Unidad").Columns("db_codigo_empresa"))

            End With






Codigo Completo



Imports System.Data
Imports System.Data.SqlClient

Public Class Form_Maestro_Detalle_Procedure

    Dim adaptador As New SqlDataAdapter()
    Dim ds As New DataSet
    Dim cmd As New SqlCommand

    Private Sub Form_Maestro_Detalle_Procedure_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        CargarDatos()

    End Sub

    Private Sub Dv_Maestro_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles Dv_Maestro.CellContentClick

        Me.lblDetalle.Text = ""
        Me.lblDetalle.Text = "Unidades: " & Dv_Detalle.RowCount - 1

    End Sub

    Public Sub CargarDatos()

        Try

            conectarse()


            '''''''''''''''''''''''''''''''''''''''''''''''''''''   
            'DataGridView maestro   
            ' ''''''''''''''''''''''''''''''''''''''''''''''''''''   
            With cmd

                ' Asignar el sql para seleccionar los datos del objeto Maestro   
                cmd = New SqlCommand("pa_Listar_Empresa", conn)
                cmd.CommandType = CommandType.StoredProcedure

            End With

            'Enlazamos el procedimiento almacenado y rellenamos el dataset
            With adaptador

                .SelectCommand = cmd
                ' llenar el dataset   
                adaptador.Fill(ds, "pa_Listar_Empresa")

            End With

            ' Enlazar el DataGridView al dataset   
            With Dv_Maestro

                .DataMember = "pa_Listar_Empresa"
                .DataSource = ds
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                '.DefaultCellStyle.BackColor = Color.AliceBlue

            End With


            ' ''''''''''''''''''''''''''''''''''''''''''''''''''''   
            'DataGridView detalles   
            ' ''''''''''''''''''''''''''''''''''''''''''''''''''''   
            With cmd

                ' cadena sql para cargar el objeto detalle de ingresos   
                cmd = New SqlCommand("pa_Listar_Unidad", conn)
                cmd.CommandType = CommandType.StoredProcedure

            End With


            With adaptador

                .SelectCommand = cmd
                ' llenar el dataset   
                adaptador.Fill(ds, "pa_Listar_Unidad")

            End With



            With ds

                .Relations.Add("Indice", _
                               ds.Tables("pa_Listar_Empresa").Columns("db_codigo_empresa"), _
                               ds.Tables("pa_Listar_Unidad").Columns("db_codigo_empresa"))

            End With

            With Dv_Detalle

                Dv_Detalle.DataSource = ds
                Dv_Detalle.DataMember = "pa_Listar_Empresa.Indice"
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                '.DefaultCellStyle.BackColor = Color.AliceBlue

            End With


            lblMaestro.Text = "Empresas: " & ds.Tables("pa_Listar_Empresa").Rows.Count

            lblDetalle.Text = "Unidades: " & Dv_Detalle.RowCount - 1


            desconectarse()

        Catch ex As Exception

            MsgBox(ex.Message.ToString)

        End Try

    End Sub

Los procedimientos almacenados: ambas tablas están vinculados por db_codigo_empresa

ALTER PROCEDURE [dbo].[pa_Listar_Empresa]
AS

SELECT
a.db_codigo_empresa as Codigo,
a.db_razon_social as [Razon Social],
a.db_ruc  as Ruc,
a.db_rep_legal as [Representante Legal],
a.db_direccion as Direccion,
a.db_telefono as Telefono,
a.db_correo as Correo,
b.db_denominacion as Actividad,
a.db_estado_empresa as Estado,

FROM tb_Empresa a

INNER JOIN tb_Actividad_Empresa b ON a.db_actividad = b.db_codigo_actividad 

WHERE a.db_estado_empresa = 'A' 

ORDER BY  a.db_razon_social

ALTER PROCEDURE [dbo].[pa_Listar_Unidad]

AS

SELECT 

db_codigo as Id,
db_codigo_empresa as Codigo,
db_denominacion as Denominacion,
db_direccion as Direccion,
db_estado_unidad as Estado,

FROM tb_Unidad 

WHERE db_estado_unidad = 'A'