用VB封装ASP的时候...为什么出错?

用VB封装ASP的时候...为什么出错?
------------------------------------------------------------------
Public Function getnum(t_kind, begnum)
Dim NRs As New Adodb.Recordset
SQL = "select top 1 nm from lient where ktype='" + t_kind + "' and Left(nm,1)='" + begnum + "' order by ID desc"
NRs.Open SQL, cn, 1, 1
If NRs.EOF Then
l_num = begnum + "000001"
Else
l_num = Mid(NRs("nm"), 2, 6)
l_num = l_num + 1
Do While Len(l_num) < 6
l_num = "0" + l_num
Loop
l_num = begnum + l_num
End If
NRs.Close
Set NRs = Nothing
getnum = l_num
End Function
----------------------------------------------------------------------
如果是记录是NRs.EOF Then是可以的.会显示H000001,但是第二条的时候就会很慢,出错!为什么?下面这个有问题吗?
l_num = Mid(NRs("nm"), 2, 6)
l_num = l_num + 1
Do While Len(l_num) < 6
l_num = "0" + l_num
Loop
l_num = begnum + l_num