VB.net 建立Access (資料庫 被 鎖定 )

 Private Sub CreateMDB(ByVal Filename As String)
     
        If Not File.Exists(Filename) Then
            Try
                Dim MyCtlog As New ADOX.Catalog
                MyCtlog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Filename + ";Jet OLEDB:Engine Type=5")
                Dim connection As ADODB.Connection = DirectCast(MyCtlog.ActiveConnection, ADODB.Connection)

                If (Not IsDBNull(connection)) Then
                    connection.Close()
                    ' MyCtlog.ActiveConnection = Nothing
                    ' MyCtlog = Nothing
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

        End If
    End Sub