VB初心者友の会 - データベース掲示板過去ログ

どうも始めまして、今データベースの更新でかなり苦しんでます。
内容は、3つの表を連結し、条件に該当した複数のデータを"0000"で更新するという部分のSQLなのですがどうしてもうまくいきません。(T_T)
UPDATE文は複数の表ではつかえないし・・・・。
今の現状のソースです。
******************************************************************************************Public Function gfncFilenew() As geRtn
    
    Dim strSql  As String
    Dim objDs   As Object

    On Error GoTo ErrProc
    gfncFilenew = geRtn.NG
    
    Set objDs = Nothing
    
    strSql = "CREATE VIEW TYUSYUTU (INM_JIMU_CD,"
    strSql = strSql & "INM_CHOTEI_NENDO,"
    strSql = strSql & "INM_CHOTEI_YMD,"
    strSql = strSql & "INM_KYOKA_YMD_TOSHO,"
    strSql = strSql & "IBM_SHIYORYO_CD)"
    strSql = strSql & " AS SELECT INM_CHOTEI_NENDO,"
    strSql = strSql & "INM_CHOTEI_YMD,"
    strSql = strSql & "INM_JIMU_CD"
    strSql = strSql & " FROM GI_NAIYOM,GI_BUKENM,GI_LINKM"
    strSql = strSql & " WHERE GI_NAIYOM.INM_JIMU_CD = GI_BUKENM.IBM_JIMU_CD"
    strSql = strSql & " AND GI_NAIYOM.INM_JIMU_CD = GI_LINKM.ILM_JIMU_CD"
    
    Set objDs = gobjDb.CreateDynaset(strSql, 0&)

    'データ存在ェック
    If objDs.EOF Then
        gfncFilenew = geRtn.OK
        Exit Function
    End If

strSql = "UPDATE TYUSYUTU"
    strSql = strSql & " SET INM_CHOTEI_NENDO = '0000',INM_CHOTEI_YMD = '0000'"
    strSql = strSql & " AND GI_NAIYOM.INM_CHOTEI_NENDO = " & mstrNendo
    strSql = strSql & " AND GI_NAIYOM.INM_CHOTEI_YMD = " & mstrChoteiMD
    strSql = strSql & " AND GI_NAIYOM.INM_KYOKA_YMD_TOSHO < '19970401'"
    strSql = strSql & " AND IBM_SHIYORYO_CD BETWEEN '000' AND '099'"

    gobjDb.ExecuteSQL strSql

    gfncFilenew = geRtn.OK
    Exit Function
    
ErrProc:
    gfncFilenew = geRtn.Cancel

End Function
******************************************************************************************
というのでエラーでとまってます。
SELECT文で連結し条件の列を選択して、それをCREATE VIEWでTYUSYUTU（仮想表）にしてからUPDATEしているのですがエラーになってしまいます。
誰か助けてください。