can i do this??

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