帮忙修改一个窗体按钮将输入的数据录入指定表的代码啊！

Private Sub 提交信息_Click()
    Dim strSql As String
    Dim Ctrls as Controls
    Set Ctrls=[Forms]![待寄养宠物狗信息表].Controls
    strSql = "INSERT INTO 待寄养表-狗 (宠物姓名,品种,性别,年龄,生活习惯,注意事项,寄养时间,寄养时长,主人会员编号) "
    strSql = strSql & " VALUES('{0}','{1}','{2}','{3}','{4}','{5}',#{6}#,'{7}','{8}')"
    strSql=ReplaceValues(strSql,Ctrls("宠物姓名").value, _
                                Ctrls("品种").value, _
                                Ctrls("性别").value, _
                                Ctrls("年龄").value, _
                                Ctrls("生活习惯").value, _
                                Ctrls("注意事项").value, _
                                Ctrls("寄养时间").value, _
                                Ctrls("寄养时长").value, _
                                Ctrls("主人会员编号").value)


    CurrentDb.Execute strSql
End Sub




Public Function ReplaceValues(ByVal str As String, ParamArray pArr() As Variant) As String
    '功能：模仿.Net中的String.Format方法
    Dim str1  As String
    Dim num As String
    Dim i As Integer
    str1 = str
    For i = 0 To UBound(pArr)
        num = "{" & i & "}"
        str1 = Replace(str1, num, pArr(i))
    Next
    ReplaceValues = str1
End Function