Vbscript access vbs文件传递参数的形式为空

我正在创建一个.vbs文件，该文件应打开access，并在access内部调用表单问题详细信息，但传递了一个参数，这意味着如果我的问题表中有10个问题，则会为每个问题创建一个vbs文件，单击“应打开”时，表中的每个问题都会有一个ID。到目前为止，它正在打开access，正在打开formIssue详细信息，但它是空白的。我错过了什么？救命啊，快发疯了。。。检查下面的代码

Public Sub sendMRBmail(mrbid)
Dim tmprs As DAO.Recordset
Dim db As DAO.Database 
Set db = CurrentDb
Set tmprs = db.OpenRecordset("select * from Issues where [ID] = " & mrbid)
If IsNull(tmprs) Then
MsgBox "Record is not yet available"
Else
DoCmd.OpenForm "Issue Details", , , "[ID] = " & mrbid
End If
Set tmprs = Nothing
End Sub

Private Sub Create_Click()

On Error GoTo Err_Command48_Click

Dim snid As Integer
snid = Me.ID

Dim filename As String
filename = "S:\Quality Control\vbs\QC" & snid & ".vbs" 

Dim proc As String
proc = Chr(34) & "sendMRBmail" & Chr(34)

Dim strList As String

strList = "On Error Resume Next" & vbNewLine
strList = strList & "dim accessApp" & vbNewLine
strList = strList & "set accessApp = createObject(" & Chr(34) & "Access.Application" & Chr(34)")" & vbNewLine
strList = strList & "accessApp.OpenCurrentDataBase(" & Chr(34) & "S:\Quality Control\Quality DB\Quality Database.accdb" & Chr(34) & ")" & vbNewLine
strList = strList & "accessApp.Run " & proc & "," & Chr(34) & snid & Chr(34) & vbNewLine
 strList = strList & "set accessApp = nothing" & vbNewLine

Open filename For Output As #1
Print #1, strList
Close #1

Err_Command48_Click:

 If Err.Number <> 0 Then

 MsgBox "Email Error #: " & Err.Number & ", " & "Description: " & Err.Description
      Exit Sub

 End If
End Sub

---

我已经找到了答案。我在DoCmd的末尾添加了acFormEdit，它成功了，请检查以下内容：

DoCmd.OpenForm "Issue Details", , , "[ID] = " & mrbid, acFormEdit

---

这就是全部代码吗？我希望有一个Scripting.Filesystem对象来编写snid vbs文件，还有一个ExecuteGlobal命令来激活您在strList中创建的vbs。对此我不确定，我对它进行了编辑，并添加了原始代码中的“打开”、“打印”和“关闭”，但没有其他内容。我是否缺少代码？它确实创建了vbs文件，而且它确实可以工作，因为它打开了表单，但为空。。。