使用VBA ADO连接从访问中添加组合框中的值

I want to add values in combo box from access using VBA ADO connection. I got the coding from google but it is for account 2003 and below. I have the access 2013 install. Please advise me as to what need to be changed in below codingI want to add values in combo box from access u