Imports System.Data.SqlClient

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'LicenciasDataSet.LICENCIAS' Puede moverla o quitarla según sea necesario.
        Me.LICENCIASTableAdapter.Fill(Me.LicenciasDataSet.LICENCIAS)

        Dim Conexion As String = "Data Source=192.1681.1;Initial Catalog=prueba;user id = piwi; password = piwi;"
        Dim da As New SqlDataAdapter("select codcliente, nombrecliente from clientes where codcliente < 5", Conexion)
        Dim ds As New DataSet

        da.Fill(ds)

        Try

            IDLOCALComboBox.DataSource = ds.Tables(0)
            IDLOCALComboBox.ValueMember = "codcliente"
            IDLOCALComboBox.DisplayMember = "nombrecliente"
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub



    Private Sub LICENCIASBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LICENCIASBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.LICENCIASBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.LicenciasDataSet)

    End Sub
End Class