こんにちは伊藤です

お騒がせしました。

これで解決しました。
    Dim ConnectStr As String
    ConnectStr = CurrentProject.BaseConnectionString
    CurrentProject.OpenConnection ConnectStr

> こんにちは伊藤です
> 
> お世話になります。
> (Access2000+MSDE)
> 
> CREATE VIEW 後にオブジェクト画面に表示されません
> 下記どこがだめでしょうか？
> ご指導してください。
> 
> ビュー画面でAccessメニューの 表示 − 更新 では 再表示できました。
> 
> 
> Sub RunScript()
> 	Debug.Print RunCreateView("VEWM32_原価商品", "M32_原価商品")
> End Sub
> Function RunCreateView(ViewName As String, TableName As String) As Boolean
> On Error GoTo  RunCreateView_Err
>     Dim cn As New ADODB.Connection, cm As New ADODB.Command
>     Dim batch$, Q$
>     Dim ViewSQL As String
>     
>     Q$ = """"  'quoted id char
>     ViewSQL = "CREATE VIEW " & ViewName & " AS SELECT * FROM " & TableName
>     
>     cn.ConnectionString = CurrentProject.BaseConnectionString
>     cn.Open
>     
>     cm.ActiveConnection = cn
>     cm.CommandType = adCmdText
>     
>     cm.CommandText = ViewSQL
>     cm.Execute
> 
>     batch$ = "GRANT  SELECT ,  INSERT ,  DELETE ,  UPDATE  ON " & Q$ & ViewName & Q$ & "  TO " & Q$ & "public" & Q$
>     cm.CommandText = batch$
>  '   cm.Execute
>     
>     RunCreateView = True
> 
>     cn.Close
    Dim ConnectStr As String
    ConnectStr = CurrentProject.BaseConnectionString
    CurrentProject.OpenConnection ConnectStr
>     Exit Function
> 
>  RunCreateView_Err:
>     MsgBox Err.Description
>     RunCreateView = False
>     cn.Close
> End Function
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
      who@example.org
 _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/