Using Returned Results from a SQL Vba Query

dim rs as ADODB.Recordset
Set cnn = New ADODB.Connection
Set cnn = CurrentProject.Connection
Dim strSQL As String

strSQL = "Select ID FROM [Computer Inventory] " _
& "WHERE [PC Name] = '" & Me.cboComputerName & "'"

Set rs = New ADODB.Recordset
    With rs
    Set .ActiveConnection = cnn
    .LockType = adLockOptimistic
    .CursorType = adOpenStatic
    .Open strSQL
    End With

'Now you have a recordset and you can examine one row at a time
something = rs.fields("FieldName").value

'Or you can use the field index, it starts at 0 and goes to however many fields you have, so usually the first field 0 is your index
something = rs.fields(0).value
'To move about your recordset you have to
rs.movenext
rs.moveprevious
rs.movefirst
rs.movelast

'usually you loop thru a recordset

do until rs.eof
'Get all of your field values and execute code here

rs.movenext
loop