Visual Basic - Consulta en MSFlexGrid-Ayuda

hOLA Y sALUDOS a tODOS
Tengo un form que utilizo para realizar una factura, los modelos los capturo directamente en el flex , el codigo lo busco en la columna "0" pero lo que deseo es buscarlo desde la columna "1" ya que la cero la quiero utilizar para numerar los renglones tengo el siguiente codigo que copie de este pagina y lo ajuste a mi manera perono encuentro como ajustarlo para que me busque en la columna "1" .Aqui les pongo el codgo.gRACIAS
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 30 To 136
MSFlexGrid1.Text = MSFlexGrid1.Text & Chr(KeyAscii)
Case 13
If MSFlexGrid1.col <= 1 Then
'If MSFlexGrid1.TextMatrix(SLno, 0) = "" Then
' MsgBox "No Ha Capturado Ningún Modelo ! ", vbInformation
' Check = 1
' MSFlexGrid1.Col = MSFlexGrid1.Col
' Else
SQL = "Select Marca,Descripcion,Color,Talla,Cantidad,Precio From Modelos Where Modelo = '" & MSFlexGrid1.TextMatrix(SLno, 0) & "'"
Set Rs = Cn.Execute(SQL)
If Rs.RecordCount > 0 Then

MSFlexGrid1.TextMatrix(SLno, 1) = Rs.Fields(1)
MSFlexGrid1.TextMatrix(SLno, 2) = Rs.Fields(2)
MSFlexGrid1.TextMatrix(SLno, 3) = Rs.Fields(3)
MSFlexGrid1.TextMatrix(SLno, 4) = Rs.Fields(4)
MSFlexGrid1.TextMatrix(SLno, 5) = Rs.Fields(5)
' MSFlexGrid1.TextMatrix(SLno, 6) = Rs.Fields(6)

Check = 0
If SLno = 1 Then
sTot = Val(MSFlexGrid1.TextMatrix(SLno, 5))
Text1.Text = sTot
ElseIf SLno > 1 Then
sTot = Val(sTot) + Val(MSFlexGrid1.TextMatrix(SLno, 5))
Text1.Text = sTot
' End If
End If
End If
End If
If MSFlexGrid1.col = 1 Then
MSFlexGrid1.col = MSFlexGrid1.col + 1
End If
If MSFlexGrid1.col < 2 And Check = 0 Then
MSFlexGrid1.col = MSFlexGrid1.col + 4
ElseIf Check = 0 Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.col = 0
SLno = SLno + 1
End If
Case 8
If MSFlexGrid1.Text <> "" Then MSFlexGrid1.Text = Mid(MSFlexGrid1.Text, 1, Len(MSFlexGrid1.Text) - 1)
End Select
End Sub

Si no me equivoco... es esta linea la que debes cambiar:

SQL = "Select Marca,Descripcion,Color,Talla,Cantidad,Precio From Modelos Where Modelo = '" & MSFlexGrid1.TextMatrix(SLno, 0) & "'"

reemplazala por:

SQL = "Select Marca,Descripcion,Color,Talla,Cantidad,Precio From Modelos Where Modelo = '" & MSFlexGrid1.TextMatrix(SLno, 1) & "'"

Te va a funcionar si estas grabando el codigo en la columna 1

Espero te sirva..