Here is the FULL Query in SQL view:
SELECT R106YTDCnew.CropYear, R106YTDCnew.StateCode, R106YTDCnew.CountyCode, R106YTDCnew.CropCode, R106YTDCnew.InsurancePlanID, R106YTDCnew.PracticeCode, R106YTDCnew.TypeCode, R106YTDCnew.ReferenceYield, R106YTDCnew.ReferenceRate, R106YTDCnew.Exponent, R106YTDCnew.ExponentSign, R106YTDCnew.FixedRateLoad, R106YTDCnew.PriorYrHighYield1, R106YTDCnew.PriorYearBasePremRate1, R106YTDCnew.PriorYrHighYield2, R106YTDCnew.PriorYearBasePremRate2, R106YTDCnew.PriorYrHighYield3, R106YTDCnew.PriorYearBasePremRate3, R106YTDCnew.PriorYrHighYield4, R106YTDCnew.PriorYearBasePremRate4, R106YTDCnew.PriorYrHighYield5, R106YTDCnew.PriorYearBasePremRate5, R106YTDCnew.PriorYrHighYield6, R106YTDCnew.PriorYearBasePremRate6, R106YTDCnew.PriorYrHighYield7, R106YTDCnew.PriorYearBasePremRate7, R106YTDCnew.PriorYrHighYield8, R106YTDCnew.PriorYearBasePremRate8, R106YTDCnew.PriorYrHighYield9, R106YTDCnew.PriorYearBasePremRate9, R106YTDCnew.PriorYrHighYield10, R106YTDCnew.PriorYearBasePremRate10, R106YTDCnew.PriorYrHighYield11, R106YTDCnew.PriorYearBasePremRate11, R106YTDCnew.PriorYrHighYield12, R106YTDCnew.PriorYearBasePremRate12, R106YTDCnew.PriorYrHighYield13, R106YTDCnew.PriorYearBasePremRate13, R106YTDCnew.PriorYearReferenceYield, R106YTDCnew.PriorYearReferenceRate, R106YTDCnew.PriorYearExponent, R106YTDCnew.PriorYearExponentSign, R106YTDCnew.PriorYrFixedRateLoad
FROM R106YTDCnew
WHERE (((R106YTDCnew.CropYear)=2006) AND ((R106YTDCnew.StateCode)=19) AND ((R106YTDCnew.CountyCode)=105) AND ((R106YTDCnew.CropCode)="0041") AND ((R106YTDCnew.InsurancePlanID)=44) AND ((R106YTDCnew.PracticeCode)="002") AND ((R106YTDCnew.TypeCode)="016"));
And here is how I tried to use it in your code. (I need more than just Reference Yield but I couldn't get this part to work so thought I'd start here.
With rs
Set .ActiveConnection = cn
.Source = "SELECT [ReferenceYield], FROM R106YTDC Where (((CropYear)=2006) AND ((StateCode)=19) AND ((CountyCode)=105) AND ((CropCode)=0041) AND ((InsurancePlanID)=44) AND ((PracticeCode)=002) AND ((TypeCode)=016));"
.Open , , 3, 3 '.Open , , adOpenStatic, adLockOptimistic
If Not .EOF Then Let myReturn = .Fields(0)
.Close
End With
Still getting an error.
The Select Statement Includes a reserved word ....
(Note I will need to pull more fields than just Reference Yield.) Baby Steps?