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

MS - SQL 設定 自動 遞增

以前在寫 資料庫的時候都是 下語法
雖然google  都先查到 http://www.1keydata.com/tw/sql/sql.html
不過我比較喜歡去    http://webdesign.kerthis.com/sql/sql_syntax
自動遞增語法
http://webdesign.kerthis.com/sql/sql_auto_increment

CREATE TABLE customers
(
  C_Id INT PRIMARY KEY IDENTITY,
  Name varchar(50),
  Address varchar(255),
  Phone varchar(20)
);

SQL Server預設會由1開始逐列自動遞增(2,3,4...)。
不過您也可以替IDENTITY欄位指定一個起始值與遞增量，語法如下：
將IDENTITY改成「IDENTITY(起始值,遞增量)」

雖然說下語法是滿方便的一件事情，不過要從 SQL Server Management Studio去設定

因為沒摸過找了一下，可能因為太簡單，網路上都沒有說，所以就自己摸索