修改视图的语句怎么写？

msf

  下面的代码是示例数据库“地址簿”里面的代码，用于修改查询，我用的是ADP连接SQL SERVER，需要修改视图，这段代码好像行不通，请问错在哪里？



  Dim db As Database

    Dim rs As Recordset

    Dim qdf As QueryDef

    Dim strSQL As String



    Set db = CurrentDb

    Set qdf = db.QueryDefs("数据表视图")

   

    strSQL = "Select "

    Set rs = Me.RecordsetClone

    rs.MoveFirst

    Do Until rs.EOF

        If rs!数据项显示 = True Then

            ' Build SQL string

            strSQL = strSQL & rs!数据项名称 & ", "

        End If

        rs.MoveNext

    Loop

   

    DoCmd.Close

    strSQL = Left(strSQL, Len(strSQL) - 2) & " From 家庭状况"

    qdf.SQL = strSQL

    DoCmd.OpenQuery qdf.Name

msf

期待中 。。。。