主题：语音朗读 提示 值不在预期范围内

If dt1.DataCols(i1).Name <> dr1("异常项目") Then
If dr1(dt1.DataCols(i1).Name)  >= Format(Date.now,"HH:mm") And dr1(dt1.DataCols(i1).Name) < Format(Date.now.AddMinutes(1),"HH:mm")  And dr1.IsNull(dt1.DataCols(i1).Name.Replace("计划","")) = True Then
Dim str1 As String = (dr1(dt1.DataCols("客户")) & "," & dr1("便次") & "," & dt1.DataCols(i1).Name.Replace("计划结束","") &  ",时间," & format(dr1(dt1.DataCols(i1).Name),"HH:mm") & "已经过了,管理者" &  cb.Text & ",请确认进度!")
sp.Speak(str1 , DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
End If

sp.Speak(str1 , DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)

如题，语音朗读 提示 值不在预期范围内   查看代码应该没找到问题，不知道怎么处理！