Public Sub llenarGridviewPROCEDURE(ByRef dtg As DataGridView, ByRef codFactura As Integer)

        Dim cnx As SqlClient.SqlConnection = New SqlClient.SqlConnection(con)
        'ClsCon.connectionString is a class that contains the connection string 
        Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand()

        If cnx.State = ConnectionState.Closed Then cnx.Open()

        cmd.Connection = cnx
        cmd.CommandText = "mostrarFacturaCompleta"
        cmd.CommandType = CommandType.StoredProcedure

        Dim prm As New SqlClient.SqlParameter

        prm.ParameterName = "@codFactura"
        prm.SqlDbType = SqlDbType.Int
        prm.Direction = ParameterDirection.Input
        prm.Value = codFactura
        cmd.Parameters.Add(prm)

        Dim adp As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(cmd)

        Dim DataSet As DataSet = New DataSet

        adp.Fill(DataSet)

        If (DataSet.Tables(0).Rows.Count > 0) Then
            dtg.DataSource = DataSet.Tables(0)
        Else
        End If

    End Sub