Una forma sencilla sería con una subrutina con un pequeño bucle a la que le pasamos el valor capturado en el combobox (supongo que será el cliente):
p.e.
Private Sub Buscar_Posición_Cliente(byVal CliCapturado as String)
Dim Posición as Short =0
Dim cDataRow as TuDataRow.TuDataTableRows
For Each cDatarow in TuDataSet.TuDataTable
if TuDataSet.TuTabla.Rows(i).Item("Cliente") <> CliCapturado Then
Posición +=1
Else
Exit For
Next
...creo que te puede funcionar.
Saludos,
