Public Class FRMBusqueda

    Private Sub FRMBusqueda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Classcom As New clsComplejo
        Dim SQL As String


        Classcom.fdtDataSetTabla("spllenacombocliente")
        C1TrueDBGrid1.SetDataBinding(Classcom.dt, "tabla")



    End Sub
End Class