Visual Basic.NET - No es tan urgente pero seria mejor ..?

No es tan urgente pero seria mejor que en ves de utilizar Lector.GetString(1) usara algo como Lector.GetString("Name1 ") asi como lo que era el antiguo y poderoso VB6
ej vb6
dim rs as new adodb.recorset

sSQL = "SELECT Sales_Person , Name1 FROM Ps_Sales_Persn_tbl "
set rs = cn.execute( ssql)

do while not rs.eof
combobox.additem rs!Name1
rs.movenext
loop

pero es de colocar numeros embes de nombres de campos es muy lento trabajar asi tengo otra subrutina o no se si mas bien decir metodo de la clase form pero que extraigo mas campos y eso de poner numero me atrasa debe de existir algo paresido al vb6 ya que VB.NET es aun mas poderoso que el vb6

grasias al programador que me respondio la vez pasada y a todos los que lelleron mi pregunta que siempre es tiempo de cada uno de ustedes en fin grasias a todos tambien por prestar atension a mi interrogante

A pues si le estoy echango ganas en VB.NET2005 ya casi entrego mi primer mini sistema

el codigo en vb.net es el siguiente

Private Sub LlenaVendedores()

sSQL = ""
sSQL = "SELECT Sales_Person , Name1 FROM Ps_Sales_Persn_tbl " _
& "ORDER BY Name1 ASC "

Dim Comando As OleDb.OleDbCommand = Cn.CreateCommand
Comando.CommandText = sSQL
Comando.CommandType = CommandType.Text
Dim Lector As OleDb.OleDbDataReader = Comando.ExecuteReader()

Dim idx As Integer
If Lector.Read Then
Me.CmbVendedores.Items.Add("( TODOS .*)")
While Lector.Read()
With Me.CmbVendedores
If Not .Items.Contains(Lector.GetString(1)) Then
idx = .Items.Add(Lector.GetString(0) & " " & Lector.GetString(1))
'.Items.Item(idx).ToString = Lector.GetString(0)
Else
idx = .Items.IndexOf(Lector.GetString(1))
End If
'.SelectedIndex = idx
End With
End While
End If

End Sub

Hola:

Es muy sencillo solo debes llamrlo de esta manera.

Lector.Item("Columna1").ToString
Lector("Columna1").ToString