تحديث Combo Box بعد الاضافه في الداتابيس

السلام عليكم،

ارجو منكم مساعدتي في تحديث عناصر Combo Box المربوط بقيم في داتا بيس.

يوجد عندي داتابيس يحتوي على جدولين، في الفورم يوجد عندي كومبو بوكس ياخذ البيانات من احد الجدوالType_T(Type) وقد تم عرضها بنجاح

في نفس الوقت بامكان المستخدم اضافة معلومات جديدة الى الجدول وتتم الاضافه ايضا بنجاح ولكن دون تحديث الكومبو بوكس.

كل مره اضطر اني اغلق البرنامج واعيد فتحه ومن ثم يتم اعتماد التحديث

كانت لي عدة محاولات وكلها باءت بالفشل.... والآن ليس في جعبتي اي فكره عن كيفية حل هذه المشكله

Private Sub BindCombo()
		Dim objConnection As OleDb.OleDbConnection
		Dim objCommand As OleDb.OleDbCommand
		Dim objDataAdapter As OleDb.OleDbDataAdapter
		Dim objDataTable As DataTable
		Dim strConnectionString As String = _
		"PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source = C:\Documents and Settings\HST\My Documents" & _
		"\Visual Studio 2005\Projects\Invoice\Invoice\DataBase.mdb"

		'Initialize the Connection object
		objConnection = New OleDb.OleDbConnection(strConnectionString)

		'Initialize the Command object
		objCommand = New OleDb.OleDbCommand("SELECT *" & _
			"FROM Type_T", objConnection)

		'Initialize the DataAdapter object and set the SelectCommand property
		objDataAdapter = New OleDb.OleDbDataAdapter
		objDataAdapter.SelectCommand = objCommand

		'Initialize the DataTable object
		objDataTable = New DataTable

		'Populate the DataTable
		objDataAdapter.Fill(objDataTable)

		'Bind the DataTable to the ComboBox
		ComboBox2.DataSource = objDataTable
		ComboBox2.DisplayMember = "Type"
		ComboBox2.ValueMember = "Type"

		'Clean up
		objDataAdapter.Dispose()
		objDataAdapter = Nothing
		objCommand.Dispose()
		objCommand = Nothing
		objConnection.Dispose()
		objConnection = Nothing

	End Sub

هذا اخر محاوله لدي... اقوم بمناداتها بعد تنفيذ عملية الاضافه في الداتابيس ولكن لاتظهر اي تحديث فيه

اكون شاكر لأي اقتراح وسوف احاول تنفيذه