objMyCmd.CommandText = " SELECT a.[RDT_FileID],a.[Master Policy Number], a.[Work item /Submission no#],a. [Insured Name], a.[Credited Office]," & _
" a.[Credited Underwriter], a.[Product Line], a.[Product Line Subtype], a.[Current Status], a.[Effective Date], a.[Expiry Date], a.[Premium in USD $] " & _
" FROM DB1[![enter image description here][1]][1].dbo.View_Property_Rater_Of_Record a " & _
" WHERE a.[Master Policy Number] Is Not Null " & _
" AND a.[RDT_FileID] is null " & _
" AND a.[Product Line Subtype] <> '0102-Marine' " & _
" AND a.[Effective Date] >= '2014-04-01' " & _
" AND a.[Current Status] ='Bound' "
objMyCmd.CommandType = adCmdText
objMyCmd.Execute