请教!怎样在文本框中输入3将追加3条日期不同的记录到子窗体内

Sub zj(sl As Integer, s As String, rq As Date) '自定义记录增加过程函数
Dim sql1 As String
Dim i As Integer        '定义循环起始变量
Dim rq1 As Date
If sl <= 0 Then
 Exit Sub
End If
rq1 = Year(rq) & "-" & Month(rq) & "-" & Day(rq) '设置标准的日期格式
For i = 0 To sl - 1  '设置循环变量值计算条件
 sql1 = "Insert INTO b(f,c) VALUES('" & s & "',#" & DateAdd("m", i, rq1) & "#)"  '插入记录到表B中的sql语句
 DoCmd.RunSQL (sql1)     '运行这个插入查询语句
Next i      '循环
End Sub
Private Sub Command5_Click()
If Len(Nz(a)) <= 0 Then
 MsgBox ("a--文本框中没有输入值，请输入") '设置如果控件a为空值时的提示
 Exit Sub
End If
If Nz(b) <= 0 Then
 MsgBox ("b--文本框中没有输入值，请输入") '设置如果控件B为空值时的提示
 Exit Sub
End If
On Error GoTo err1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 '保存记录
err1:
zj [b], [a], [DTPicker2]   '引用自定义函数'zj',完成记录插入
B子窗体.Requery         '刷新子窗体结果显示

End Sub