主题：想不出问题出在哪里

Dim BHTEMP As String

BHTEMP=format(e.Form.Controls("DateTimePicker2").Value,"yyyyMMdd") 可能错误的地方。
Dim max As String
Dim idx As Integer
max = Tables("bmk").Compute("Max(BH)","substring([bh],5,8) = # " & bhtemp & "#" ) 可能错误的地方。
If max>"" Then
idx = CInt(max.Substring(10)) + 1
Else
idx = 1
End If

以上是代码，放在DATETIMEPICKER2控件的TEXTCHANG事件中，一调试的时候总是出现如下错误，我不知道原因，求解

 

 

 

此主题相关图片如下：未命名3.jpg