Visual Basic.NET - Error al recoger valor combo

Hola tengo la siguiente instruccion que lo que hago es recorrer un combo, y
comprobar si los valores que voy a introducir existen ya en el combo, en
caso de no existir lo que hago es introducirlo.

Pero a la hora de recorrer el combo en la instruccion
Me.cbProfesion.Items.IndexOf(j) me da error

While oDataProfesion2.Read
For j As Integer = 0 To Me.cbProfesion.Items.Count - 1
If oDataProfesion2("profesion2") <> Me.cbProfesion.Items.IndexOf(j) Then
Me.cbProfesion.Items.Add(oDataProfesion2("profesion2"))
End If
Next j
End While

Podrias especificar que error te tira. Otra cosa, que es oDataProfesion2?.