Llenar un ComboBox con un DataReader

[mnk_84]

Necesito que alguien me ayede, lleno un combo por medio de esta funcion
pero mi problema es que cuando envio a llenar el combo lo hace desde el segundo items como puedo hacer para que lo llede desde el princio
cuando se coloca Items.Add lo hace desde el items(1) no desde el (0)

GenerarCombo("Oficina", Me.Combo, OficinaPrincipal)
'''Esta es la funcion

Public Function GenerarCombo1(ByVal Tabla As String, ByVal Combo As Object, Optional ByVal Filtro As String = "")
Dim sQry As String

oConn = New SqlConnection(sConn)
sQry = "GenerarCombo '" & Tabla & "'"
sQry = sQry & ", " & IIf(Filtro = "", "null", "'" & Filtro & "'")

oComm = New SqlCommand(sQry, oConn)
oConn.Open()

oRead = oComm.ExecuteReader()
If cmbServer Then
While oRead.Read()
ReDim Preserve Combo(1, UBound(Combo, 2) + 1)
Combo(0, UBound(Combo, 2)) = oRead.GetString(0)
Combo(1, UBound(Combo, 2)) = oRead.GetString(1)
End While
Else

While oRead.Read()
If Codigo = oRead.GetString(0) Then

Else


Combo.Items.Add(Combo.DisplayMember)


End If
End While

End If

oRead.Close()
oConn.Close()

End Function

Muchas gracias