使用vlookup功能自动填充用户表单

Question

我已经建立了一个用户名，其ID编号在顶部和下方是与数据库的其余部分匹配的框列表。选择ID号后，我希望填写用户表单中的所有其他框，例如使用vlookup。以下是当前公式，但由于出现错误而无法正常工作：

  

Run-time error '9': Subscript out of range.

知道为什么吗？

下面是当前代码

Dim SLNo As Integer

SLNo = cmbdid.Value

Me.TextSendCode.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 2, 0)

Me.TextReceiveCode.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 3, 0)

Me.TextEntity.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 4, 0)

Me.TextAccNumber.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 5, 0)

cmbdid是ID号文本框名称，B10:k13是数据库表