Private Sub FillComboBox(cmb As ComboBox, dtbl As DataTable, col As Int16)
        cmb.Items.Clear()
        cmb.Items.Add("")
        Dim row As DataRow
        For Each row In dtbl.Rows
            ' MsgBox(row(col))
            cmb.Items.Add(row(col))
        Next row
    End Sub