I have the following code which errors as given below.
Calling line is
Call ObtainPremiumSummaryData("3000724", #1/7/2017#, #1/7/2016#)
Public Sub ObtainPremiumSummaryData(strCustNo As String, dteClaimYearStart As Date, dtePreviousYearStart As Date)
Dim cnn As New ADODB.Connection...