建立查询的窗体，无法进行添加、修改？

在umv平台的基础上进行：

从多个表中选取不同的字段建立了查询，并利用这个查询中的字段建立了相应的查询窗体，但在增加“添加”、“修改”、“查找”等按钮的时候出现问题。

Private Sub cmd_Save()
    Dim rst As dao.Recordset
If IsNull(Me.skmc) Then
        MsgBox "请输入水库名称!", vbCritical, "提示："
        Me.skmc.SetFocus
 Exit Sub
 End If

If IsNull(Me.xzqh) Then
        MsgBox "请输入行政区划!", vbCritical, "提示："
        Me.xxqh.SetFocus
        Exit Sub
End If

If IsNull(Me.bg) Then
        MsgBox "请输入坝高!", vbCritical, "提示："
        Me.bg.SetFocus
        Exit Sub
    End If
If IsNull(Me.ylzt) Then
        MsgBox "请输入区域应力状态!", vbCritical, "提示："
        Me.ylzt.SetFocus
        Exit Sub
End If
If IsNull(Me.hdbj) Then
        MsgBox "请输入地震活动背景!", vbCritical, "提示："
        Me.hdbj.SetFocus
        Exit Sub
End If
    Me.Refresh
 If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
        Set rst = CurrentDb.OpenRecordset("tblJCDL", dbOpenDynaset)
        rst.AddNew
        rst("水库名称") = Me.skmc
        rst("行政区划") = Me.xzqh
        Set rst = CurrentDb.OpenRecordset("tblSWKR", dbOpenDynaset)
        rst.AddNew
        rst("坝高/m") = Me.bg
        Set rst = CurrentDb.OpenRecordset("tblDZHJ", dbOpenDynaset)
        rst.AddNew
        rst("区域应力状态") = Me.ylzt
        Set rst = CurrentDb.OpenRecordset("tblDZHD", dbOpenDynaset)
        rst.AddNew
        rst("地震活动背景") = Me.hdbj
        rst.Update
        rst.Close
        Set rst = Nothing    这样“添加”按钮根本不管用的，该怎么修改呢？