Generic module: Populate combo box or list box with database items.

Generic module: Populate combo box or list box with database items. Convert vb 6 function to VB 2010-2013. This is a function that I can call to populate a forms combo box, or list box with the Database items. I am looking for a coder to help me move from VB6 to vb.net 2010. I am retired, and am on a budget so a price consideration will be greatly appriciated. I would like to get this done for under $50.00 if I can, and ASAP An access database ([login to view URL]) with text items is attached. I have a lot of future work for the right coder. Providing me with an example exe in VB 2010 is a must to be considered for the job. Here is Function I need (called from any form) I place this in the form load event to fill all the combo boxes on the form It must reside in an external module to drop into any program's form. FillCombos Me, lstEmployees, "Select Distinct NCO FROM employerFunds", "NCO", "ALL" FillCombos = Name of function Me is the form that is loaded lstEmployees = Table Name NCO is field returned "ALL" is a default First item in Combo box (Listindex = 0) if added(Optional) --------------------------- vb6 version: Public Sub FillCombos(F As Form, ControlName As Control, TableNameorSQL As String, FieldDescriptor As String, Optional AddText As String) Do not use Jet, but ODBC. Here is code in vb 2010 form that works, but must be added to each form & for each combo box. (Load Combo box with the Last Name of "Smith" from the Members Table. Dim LastName$ LastName$ = "Smith" Dim dbSource$ dbSource$ = [login to view URL] & "\Members..mdb" Dim TableNameorSQL$ TableNameorSQL$ = "Select * From Employees WHERE [Last Name] = '" & LastName$ & "'" Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbSource$ Dim objConnection As New OleDbConnection(strConnection) 'Open the connection with error handling Try [login to view URL]() Catch OleDbExceptionErr As OleDbException [login to view URL]([login to view URL]) Catch InvalidOperationErr As InvalidOperationException [login to view URL]([login to view URL]) End Try 'Create a command object with the SQL statement needed to select the first and last names Dim strSQL As String = TableNameorSQL$ Dim objCommand As New OleDbCommand(strSQL, objConnection) 'Create a data adapter and data table then fill the data table Dim objDataAdapter As New OleDbDataAdapter(objCommand) Dim objDataTable As New DataTable(TableName$) [login to view URL](objDataTable) 'Create connection and release resources [login to view URL]() [login to view URL]() objConnection = Nothing [login to view URL]() objCommand = Nothing [login to view URL]() objDataAdapter = Nothing 'Fill names into the listbox For Each row As DataRow In [login to view URL] [login to view URL]([login to view URL](LastName$)) Next 'Release resources [login to view URL]() objDataTable = Nothing