代码出错，没找出原因，帮忙找找，谢谢

Private Sub cmd_Save()
    Dim strConn As String
    Dim strSQL As String
    Dim rst As ADODB.Recordset
    Dim strID As String
    If IsNull(Me.xm) Then
        MsgBox "请输入姓名!", vbCritical, "提示："
        Me.xm.SetFocus
        Exit Sub
    End If
 

    If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
        Me.Refresh
      
        strConn = CurrentProject.Connection
        strSQL = "select * from tblyzxx where  房号名称=" & selectid
        Set rst = New ADODB.Recordset
        rst.CursorLocation = adUseClient    '本地游标
        rst.Open strSQL, strConn, adOpenDynamic, adLockOptimistic
       
       rst("姓名") = Me.xm
        rst("身份证号码") = Me.sfzhm
        rst("楼栋") = Me.ld
        rst("房号") = Me.fh
        rst("面积") = Me.mj
        rst("联系电话") = Me.lxdh
        rst("合同地址") = Me.htdz
        rst("邮编") = Me.yb
        rst("电子信箱") = Me.dzxx
        rst.Update
        rst.Close
        Set rst = Nothing
        Me.Refresh
        DoCmd.Close acForm, "frmyzxx_child_Edit"
        '刷新数据
        If IsLoaded("usysfrmMain") Then
            DoCmd.Echo False
            Forms!usysfrmMain!frmChild.SourceObject = "frmyzxx_child"
            DoCmd.Echo True
            '触发子窗体计时器事件
            Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
        End If
       
    End If
End Sub

点击下载此附件

这是出错的对话框