Maximo index de un dataset

[nancy8120]

hola,
ahora tengo el siguiente problema
he buscado por internet y no encuentro nada,
ok el asunto es el siguiente,
yo hago una consulta que me devuelve un solo registro
ese reguistro lo cargo en un dataset y luego le paso los datos a los controles label y textbox, pero cuando se lo paso me manda el siguiente error

"make sure that the maximum index on a list is less than the list size"
que es en esta linea que me brinca
Me.lbprimernombre.Text = ds.Tables(0).Rows(0)("cod_cia")

la consulta esta funconado bien
lo que creo que debe ser esq debo dar el valor de maximo index pero, no se que funcion se usa para capturarlo bueno esa es mi hipotesis

les agredesco
bye
este es el codigo

Protected Sub btnbuscar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnbuscar.Click

Dim sucursal As String = Me.ddlsucursal.SelectedValue

Dim ds As System.Data.DataSet
Try


ds = Datos.getResultadoBusquedaRP(Me.TxtNoEmpleado.Text , Me.lbprimernombre.Text, errores)

Me.lbprimernombre.Text = ds.Tables(1).Rows(1)("cod_cia")

Catch ex As Exception

'MsgBox1.ShowMessage("Ha ocurrido el siguiente error :" & errores)
Response.Write("Ha ocurrido el siguiente error :" & errores)
Finally
ds = Nothing
ds.Dispose()

entidad = Nothing
Datos = Nothing

End Try

End Sub
Public Function getResultadoBusquedaRP(ByVal noempleado As String, ByVal nombre As String, ByRef errores As String) As System.Data.DataSet
Dim capadatos As New DatosCapa.AccesoDatos
Dim ds As System.Data.DataSet
Dim proceso As Integer = 1
Try
Dim parametros(1) As String
parametros(0) = UCase(noempleado)
parametros(1) = CInt(proceso)
ds = capadatos.EjecutaSpDS("dbo.adm_co_perfil", parametros)
Catch ex As Exception

Finally

'capadatos = Nothing
End Try
Return ds
End Function