Dear Mr. Dharmendr,
Demo is as per the requirment. However I need to run this code on focus, please guide how to handle it, should change javascript or something else.
Private Sub LoadVendors()
Dim objAccount As New clsCustomersAndVendors
Dim ds As New DataSet
....
End Sub