Public Sub FILLCOMBOBOXITEMS1(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object)
        On Error Resume Next
        Dim I As Integer
        Dim DS As New DataSet
        Dim str As String = "SELECT DISTINCT " & FIELD & " FROM " & TABLE
        Dim ADP As New SqlDataAdapter(str, con)
        DS.Clear()
        ADP.Fill(DS, "TBL")
        COMBO.Items.Clear()
        For I = 0 To DS.Tables("TBL").Rows.Count - 1
            COMBO.Items.Add(DS.Tables("TBL").Rows(I).Item(0))
        Next I
        ADP.Dispose()
    End Sub