查询功能已经做好，想修改并保存查询到的信息，怎么编写保存？

'在保存命令里写入以下:

Private Sub cmdsave_Click()
    On Error GoTo Err_cmdsave_Click
    '定义用于循环的整型变量
    Dim i As Integer
    '定义字符型变量
    Dim STemp As String
    '定义数据集变量
    Dim rs As ADODB.Recordset
    '为定义的数据集变量分配空间
    Set rs = New ADODB.Recordset
    '为打开数据表“查询语句”字符变量赋值
    STemp = "Select * From 业主信息"
    '打开“业主信息”数据表
    rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    rs.MoveFirst    '把数据集指针指向第一记录
    '使用For…Next循环在数据集中搜索相同“房号”的记录
    For i = 1 To rs.RecordCount
        If rs("房号") = [txtfh] Then
            '修改“业主信息”数据表字段值
            rs("业主") = Me![txtyz]
            rs("入伙情况") = Me![txtrhqk]
            rs("入伙日期") = Me![txtrhrq]
            rs("备注") = Me![txtbz]
            '使用记录集的Update方法来刷新记录集
            rs.Update
            '弹出“修改完成”的提示信息
            MsgBox "业主信息已经修改完成！", vbOKOnly, "修改完成"
            Exit Sub      '退出子过程
        Else
            rs.MoveNext    '把记录指针移到下一条记录
        End If
    Next i
    '释放系统为Rs数据集分配的空间
    Set rs = Nothing
Exit_cmdsave_Click:
    Exit Sub
Err_cmdsave_Click:
    MsgBox Err.Description
    Resume Exit_cmdsave_Click
End Sub