Public Class frmclientes

    Private Sub BTCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTCerrar.Click
        Me.Close()
    End Sub

    Private Sub frmclientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SQL As String
        Dim clCmp As New clsComplejo

        SQL = "SELECT idcliente as 'NUMERO DE CLIENTE',NIC 'NUMERO SOCIO' ,rtrim(ltrim(clientenom)) + ' ' + ltrim(rtrim(isnull(apaterno,''))) + ' ' + ltrim(rtrim(isnull(amaterno,''))) 'NOMBRE' "
        SQL = SQL & " FROM cliente WHERE idcliente NOT IN (SELECT idcliente FROM kyc_datosgenerales)"

        clCmp.fdtDataSetTabla(SQL)
        Me.GRDClientes.SetDataBinding(clCmp.ds, "Tabla") 'Llena el grid

    End Sub
End Class