shCurrent.Range("Copy_Here").CopyFromRecordset rstReport

Dim rstReport As New ADODB.Recordset
 sSQL = "select * from " & sTable & " Where dicSalesReps_ID = " & !ID
            Dim cmd As ADODB.Command
            Set cmd = New ADODB.Command
            With cmd
                .ActiveConnection = CurrentProject.BaseConnectionString
                .CommandText = sSQL
                .CommandType = adCmdText
                .CommandTimeout =  600 
            End With
            rstReport.CursorLocation = adUseServer
            rstReport.Open cmd, , adOpenKeyset, adLockReadOnly
            If Not rstReport.EOF Then
                If shCurrent Is Nothing Then
                    shTemplate.Copy , shTemplate
                Else
                    shTemplate.Copy , shCurrent
                End If
                Set shCurrent = wb.Sheets(wb.Sheets.Count)
                
                'error here
               
                shCurrent.Range("Copy_Here").CopyFromRecordset rstReport, , rstReport.Fields.Count() -  3 
            
                On Error Resume Next
                shCurrent.Name = Left(!SRName,  31 )
                If Err.Number Then
                       On Error GoTo err_
                    shCurrent.Name = "SRID_" & !ID
                End If