ADODB.RecordSet and Combobox's

I have the following code to create a record set in a form

Dim db As New ADODB.Connection
Dim dbConString As String = "Provider=sqloledb;server=sql1;uid=itregister;pwd=%T6y7u8i9o;database=itregister"
db.Open(dbConString)

Dim rsCompany As New ADODB.Recordset
rsCompany.Open("SELECT * FROM Company", db)


I want to set the properties of a combobox using this recordset. I have used the following code

comboboxCompany.ValueMember = rsCompany.Fields("CompanyRef").Value
comboboxCompany.DisplayMember = rsCompany.Fields("CompanyName").Value

When i testand i click the dropdown arrow on the combobox nothing happens. I am new to using ADODB i have always used tableadapters. What am i doing wrong?