Excel Query VBA-When nothing is found-

This is Excel VBA


I have this piece of code, when I run this- the second query

'////20 year WAVG

Currently there is no record for this result,  so I get an error

‘Either BOF or EOF  is true,  or the current record has been deleted.
Request operation requires a current record. “  

I don’t know what to put to get by this.

Any help would greatly be appreciated.


Public Sub OpenADO()
    Dim dbpath As String
    Dim Src As String
    Dim Connection As ADODB.Connection
    Dim Col As Integer
    Dim Recordset As ADODB.Recordset
    Dim A1 As Range
   
       
    'Without Password
     dbpath = "C:\Documents and Settings\n574824\Databases\SRP\SRPtwo.mdb"
   

    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open dbpath
    End With
   
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '////30 year WAVG
'   Create RecordSet
   
    Set Recordset = New ADODB.Recordset
    With Recordset
   
'       Filter
        Src = "SELECT [Expr1] "     '<--- space added to
        Src = Src & "FROM WA "
        Src = Src & "WHERE ([LoanTerm] = '30' ) And [CompanyID] = " & TradeLimit.ComboBox1.Value
       
         .Open source:=Src, ActiveConnection:=conn

'Write the recordset
        Sheet9.Range("L10").Value = .Fields(0)
           
    End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'////20 year WAVG
'   Create RecordSet
   
    Set Recordset = New ADODB.Recordset
    With Recordset
   
'       Filter
        Src = "SELECT [Expr1] "     '<--- space added to
        Src = Src & "FROM WA "
        Src = Src & "WHERE ([LoanTerm] = '20' ) And [CompanyID] = " & TradeLimit.ComboBox1.Value
       
         .Open source:=Src, ActiveConnection:=conn

           
    End With

  Set Recordset = Nothing
    conn.Close
    Set conn = Nothing
End Sub