Problemas con listas y base de datos

[cyber_dark]

Saludos, tengo el sig problema, espero puedan ayudar, tengo 2 listas, las 2 muestran lo mismo que son los nombres del campo Operacion, la primera lista es para la unidad que se tiene, y la segunda a la que se desea convertir.

Código:

Tabla: Operaciones

Campos: 

Id, Opcion, mm, cm, m, km
1     mm    
2     cm
3     m
4     km

Los campos mm, cm, m y km, tienen los valores por los que se multiplica

Codigo:

Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & "C:\Ruta\Base.mdb"
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .Open "Select * from Operacion"
    End With
    Do Until rs.EOF
        List1.AddItem rs!Opcion
        List2.AddItem rs!Opcion
        rs.MoveNext
    Loop
End Sub

Private Sub Command1_Click()
    rs.MoveFirst
    rs.Find "Opcion = '" & List1.Text & "'"
    op1= rs!Opcion

    rs.MoveFirst
    rs.Find "Opcion = '" & List2.Text & "'"
    op2= rs!Opcion

    Resultado = Numero.text * Variablequenoconozco
End Sub

El problema es que puedo conocer, que selecciona en la primera lista, y que selecciona en la segunda lista, pero no se como hacer para guardar en "Variablequenoconozco" el valor ya sea de mm, cm, m o km. Saludos y gracias.