感谢大家的回复，调试成功了

Dim BY,BM,BD,NY,NM,ND,BeginDate,EndDate,e,f

By=HMIRuntime.Tags("BYEAR").Read

Bm=HMIRuntime.Tags("BMONTH").Read

Bd=HMIRuntime.Tags("BDAY").Read

Ny=HMIRuntime.Tags("EYEAR").Read

Nm=HMIRuntime.Tags("EMONTH").Read

Nd=HMIRuntime.Tags("EDAY").Read

Dim my,mm,md

Dim mmy,mmm,mmd

my=CStr(by)

mm=CStr(bm)

md=CStr(bd)

mmy=CStr(ny)

mmm=CStr(nm)

mmd=CStr(nd)

' BeginDate = By&"/"&Bm&"/"&Bd

'EndDate = Ny&"/"&Nm&"/"&Nd

'BeginDate = By&"/"&Bm&"/"&Bd&" "00:00:00"

'EndDate = Ny&"/"&Nm&"/"&Nd&" "23:59:59"

BeginDate = my&"/"&mm&"/"&md&" "&"00:00:00"

EndDate = mmy&"/"&mmm&"/"&mmd&" "&"23:59:59"

'BeginDate=By &"-"&Bm &"-"&Bd&" "&"00:00:00"

'EndDate=Ny &"-"&Nm &"-"&Nd&" "&"23:59:59"

'e=Byr &"-"&Bm &"-"&Bd

'F=Ny &"-"&Nm &"-"&Nd

'定义日报筛选条件，即年月日的获取

Dim My_Month,My_Year,My_Day

My_Year =HMIRuntime.Tags("BYEAR").Read

My_Month=HMIRuntime.Tags("BMONTH").Read

My_Day=HMIRuntime.Tags("BDAY").Read

'数据库连接字符串

sCon= "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=WINCC;Data Source=.\WINCC"

'whe=" where year(MyTime)="&My_Year&" and month(MyTime)="&My_Month&" and day(MyTime)="&My_Day&" "  '设置查询条件

strSQL1= "SELECT convert(char(19),MYTIME,21),Data01,Data02 FROM dayreport01  WHERE MyTime BETWEEN '" & BeginDate & "' and '" & EndDate & "' ORDER BY MyTime "