关于根据预算来自动随机分配的问题

Private Sub Command0_Click()
    Dim a As Integer
    Dim i As Long, j As Long, k As Long
    Dim ys As Double, je As Double, khid As Integer
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("select * from t_tbl02 order by 单价 desc") '先分配贵重的,便于均衡,补差
    rst.MoveFirst
    Debug.Print rst.RecordCount
    CurrentDb.Execute "delete * from t_tbl03"
    For i = 1 To rst.RecordCount
        For j = 1 To rst.Fields("数量")
            For k = 1 To 3    '3为客户的数量
                a = CInt(100 * Rnd())
                khid = 1 + (a Mod 3)
                ys = DLookup("预算金额", "t_tbl01", "id=" & khid) '获取随机id的单位的预算控制金额
                je = Nz(DSum("金额", "分配查询", "单位id=" & khid), 0) '获取随机id的单位的已分配金额
                If je + rst.Fields("单价") <= ys Then '已分配和马上要分配的金额之和,在预算范围内
                    SQL = "insert into t_tbl03(物品id,物品,数量,单价,单位id) select id,物品,1,单价," & khid & " as 单位id from t_tbl02 where id=" & rst.Fields("id")
                    CurrentDb.Execute SQL
                    Exit For
                End If
            Next k
        Next j
        rst.MoveNext
    Next i
End Sub