Code:
Private objConn As ADODB.Connection
Dim dblRate As Double
Dim objRS As ADODB.Recordset
Dim strSQL As String    'Declare the variables we need
Dim oRS As ADODB.Recordset
 

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub cmdGo_Click()

 'create the SQL statement (using the ID values in ItemData)
  strSQL = "SELECT ExchangeRate " _
         & "FROM Conversion " _
         & "WHERE FromCurrencyID = " & cboFirst.ItemData(cboFirst.ListIndex) _
         & " AND ToCurrencyID = " & cboSecond.ItemData(cboSecond.ListIndex)

    'run it to get the data
  Set objRS = New ADODB.Recordset
  objRS.Open strSQL, objConn, adOpenForwardOnly, adLockReadOnly, adCmdText
  If objRS.EOF Then
    objRS.Close
    Set objRS = Nothing
    MsgBox "Exchange rate not found!", vbInformation
    Exit Sub
  End If
  dblRate = objRS.Fields("ExchangeRate").Value

  objRS.Close
  Set objRS = Nothing

    'you now have the rate, in the dblRate variable

End Sub

Private Sub cmdReset_Click()
txtAmount.Text = Empty
txtResult.Text = Empty
End Sub

Private Sub Form_Load()

  
  Set oRS = New ADODB.Recordset
  oRS.Open strSQL, oConn, adOpenForwardOnly, adLockReadOnly, adCmdText
                            
  With objComboBox          'Fill the combo box
    .Clear
    If strFieldForItemData = "" Then
      Do While Not oRS.EOF      '(without ItemData)
        .AddItem oRS.Fields(strFieldToShow).Value
        oRS.MoveNext
      Loop
    Else
      Do While Not oRS.EOF      '(with ItemData)
        .AddItem oRS.Fields(strFieldToShow).Value
        .ItemData(.NewIndex) = oRS.Fields(strFieldForItemData).Value
        oRS.MoveNext
      Loop
    End If
  End With

  oRS.Close                 'Tidy up
  Set oRS = Nothing


 Set oRS = New ADODB.Recordset

Set objConn = New ADODB.Connection
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source= C:\Documents and Settings\Matt\Desktop\Old Assignments\Unit 32 - Graphics\Exchange Rate\currencyexchange.mdb"
  objConn.Open
  

  strSQL = "SELECT CurrencyName, CurrencyID FROM Currency"
  Call FillCombo(cboFirst, objConn, strSQL, "CurrencyName", "CurrencyID")
  Call FillCombo(cboSecond, objConn, strSQL, "CurrencyName", "CurrencyID")
  
End Sub