Public Class FrmBuscaListas
    Dim _lsNombre As String
    Dim _lsApat As String
    Dim _lsAmater As String
    Dim _lsopen As String
    Dim cliente As String
    Dim refban As New DataTable
    Public Sub New(ByVal nombre As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

        _lsNombre = nombre


        Me.Text = "Busqueda de Clientes por Nombre"
        Dim Classcom As New clsComplejo
        Dim ClassCatalogos As New ClassCatalogos
        Dim SQL As String
        Dim FILA As DataRow
        cliente = ""
        'LLENA GRID
        SQL = "spBuscaClientePorNombre '" & _lsNombre & "'"
        ClassCatalogos.LlenaGrid(SQL, Me.GridMaster)

        If ClassCatalogos.Classcom.ds.Tables(0).Rows.Count = 0 Then
            Me.Text = 0
        End If

        ' Me.Text = 1
        ' Busca datos de Ref ban. y comer del cliente
        'If coneccion.consulta_listas(_lsNombre, _lsApat, _lsAmater) Then
        '    ' carga Grid
        '    refban = coneccion.lee_Listas
        '    DGRefBan.DataSource = refban
        '    If refban.Rows.Count = 0 Then
        '        Me.Text = 0
        '    End If
        'End If
    End Sub
    Private Sub FrmBuscaListas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BtnCerrar_Click(sender As System.Object, e As System.EventArgs) Handles BtnCerrar.Click
        Me.Close()
    End Sub

    Private Sub GridMaster_Click(sender As System.Object, e As System.EventArgs) Handles GridMaster.Click


    End Sub

    Private Sub GridMaster_DoubleClick(sender As Object, e As System.EventArgs) Handles GridMaster.DoubleClick

        clsVaribles.lsClienteNombre = Me.GridMaster.Columns("CLAVE").Value
        clsVaribles.lsClienteNombreT = Me.GridMaster.Columns("nombre").Value
        Me.Close()

    End Sub
End Class