Hi

im using ado with a ms access frontend...the backend is all sp..can i use the same load values procedure from two different rs??

Code:
Public Function loadvalues()
  On Error GoTo Err_loadvalues
    
    valPolicyNo_char.BackColor = vbWhite
    vaInceptionDate_date.BackColor = vbWhite
    New_Note.BackColor = vbWhite
    ValPolEndDate_Date.BackColor = vbWhite
     
     If gRecSearch_bol = True Then 'if rs has been filtered then close the existing rs
        rsSet.Close
        Set rsSet = Nothing
        
       Me.QuoteRef_ID = Quoteref
       Me.AC_NO = ACNo
       Me.Brokername = Brokername
       Me.Contact_char = ContactName
       Me.RiskName_char = RiskName
       Me.Pcode = PostCode
       Me.TradeDesc = TradeDesc
    End If
     Else
     
       Me.QuoteRef_ID = rsSet("QuoteRef_ID")
       Me.AC_NO = rsSet("AC_No")
       Me.Brokername = rsSet("BrokerName_Char")
       Me.valStatus_char = rsSet("status")
       Me.Recieved_date = rsSet("recieved_date")
       Me.Contact_char = rsSet("Contact_char")
       Me.TelNo = rsSet("Tel_Number")
       Me.EMAIL = rsSet("email_char")
       Me.vaInceptionDate_date = rsSet("inceptiondate_date")
       Me.valPreStmt = rsSet("PreStatement_Int")
       Me.RiskName_char = rsSet("name")
       Me.Pcode = rsSet("PostCode_char")
       Me.ValPolEndDate_Date = rsSet("PolicyEndDate_Date")
       Me.TradeDesc = rsSet("TradeDesc_char")
       Me.valPolicyNo_char = rsSet("PolicyNo_char")
       Me.valProductCode = rsSet("ProductCode_char")
       Me.valBDComm_per = rsSet("BDComm_per")
       Me.valBrkComm_per = rsSet("BrkComm_per")
       Me.valRenewal_date = rsSet("Renewal_date")
       Me.valCreditTerm = rsSet("CreditTerms_char")
       Me.valTargetPrem_cur = rsSet("TargetPremium_cur")
       Me.valRiskTransfer = rsSet("RiskTransfer_char")
       Me.TargetInsurer_char = rsSet("TargetInsurer_char")
       Me.valToCarrier_date = rsSet("ToCarrier_date")
       Me.Carrier_char = rsSet("Carrier_char")
       Me.Source = rsSet("carriersource_char")
       Me.valCarrierQuoteRef_char = rsSet("QuoteReference_char")
       Me.valQuotedPremium_cur = rsSet("QuotedPremium_cur")
       Me.valCarrierQuote_date = rsSet("CarrierQuote_date")
       Me.valDiaryReason_char = rsSet("DiaryReason_note")
       Me.ValNextDiary_date = rsSet("NextDiary_date")
       Me.valTerms_note = rsSet("Terms_note")
       Me.valFeedback_Note = rsSet("Feedback_note")
       Me.valQuoteToBroker_date = rsSet("QuoteToBroker_date")
 
   
    If valStatus_char = "Taken-Up" Then
        valStatus_char.Enabled = False
        valQuotedPremium_cur.Enabled = False
        vaInceptionDate_date.Enabled = False
        valPolicyNo_char.Enabled = False
    Else
        valStatus_char.Enabled = True
        valQuotedPremium_cur.Enabled = True
        vaInceptionDate_date.Enabled = True
        valPolicyNo_char.Enabled = True
        ValPolEndDate_Date.Enabled = True
    End If
  
Exit_loadvalues:
    Exit Function

Err_loadvalues:
    MsgBox Err.Description
    Resume Exit_loadvalues
    Resume
       
End Function
thanks