VB初心者です。以下の構文でEXCEL2000のファイルとやり取りをしたのですが
起動1回目はOKですが2回目以降、エラーで接続できません。

Public Class Form1
    Dim 保存 As String
    Dim ｼｽﾃﾑ As String
    Dim xlApp As New Excel.Application
    Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
    Dim xlBook As New Excel.Workbook
    Dim xlSheets As Excel.Sheets
    Dim xlSheet As Excel.Worksheet

Public Shared Sub MRComObject(Of T As Class)(ByRef objCom As T, Optional ByVal force As Boolean = False)
        If objCom Is Nothing Then
            Return
        End If
        Try
           （中略）

        Finally
            objCom = Nothing
        End Try
    End Sub

Private Sub 接続(ByVal FileName)
        Dim xlFilePath As String = FileName
        xlBook = xlBooks.Open(xlFilePath)　←ここでエラー（Newキーワードを使用くださいのメッセージ）
        xlSheets = xlBook.Worksheets
        xlSheet = xlSheets.Item(1)
    End Sub

Private Sub 接続終了()
 
        MRComObject(xlSheet)            'xlSheet の解放
        MRComObject(xlSheets)           'xlSheets の解放
        xlBook.Close(False)             'xlBook を閉じる
        MRComObject(xlBook)             'xlBook の解放
        MRComObject(xlBooks)            'xlBooks の解放
        xlApp.Quit()                    'Excelを閉じる 
        MRComObject(xlApp)              'xlApp を解放
    End Sub

 Private Sub 書込()
        接続(保存)
        
　　　　　　　　（中略）
        
        接続終了()
    End Sub

接続と終了処置が何回も必要なので独立させた物にしたかったのですが　Newキーワードの使い方が
よくわかりません。よろしくお願いします
環境　VB2005　Excel2000