关于根据数据库的现有单号自动增加单号的问题？

新手！求助！

要根据数据库的现有单号自动增加单号

Private Sub Form_Load()
 Dim Dh As Long
 SQL = "SELECT MAX(单号) FROM 奖罚明细"
     Dh = Val(Mid(rst.Fields(0), 3))
Me.Text42.Value = "JF" & Format(Dh + 1, "00000") '新单单号
End Sub点击下载此附件

哪位大神给能给我看看，怎么出错了呀！