C# 操作.mdb文件出现.ldb锁死文件 无法删除.mdb文件

问题:   有个问题困扰我很长时间了 access数据库操作 当访问.mdb文件会出现一个.ldb锁死文件 我想用代码删除.mdb文件 可是操作不了 提示被另一个程序调用

c#做法类似

  Dim SaveFile As String = "F:test.mdb"

  Dim SaveFileName As String = SaveFile

  Dim Cat As New ADOX.Catalog

  Cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + SaveFile + ";")

  Dim tbl As New ADOX.Table()

  tbl.ParentCatalog = Cat

  tbl.Name = "Table1"

  '增加字段

  tbl.Columns.Append("id", ADOX.DataTypeEnum.adInteger)

  tbl.Columns.Append("工况", ADOX.DataTypeEnum.adVarWChar, 255)

  tbl.Columns.Append("船舶运动", ADOX.DataTypeEnum.adVarWChar, 255)

  tbl.Columns.Append("纵荡加速度", ADOX.DataTypeEnum.adVarWChar, 255)

  tbl.Columns.Append("横荡加速度", ADOX.DataTypeEnum.adVarWChar, 255)

  tbl.Columns.Append("垂荡加速度", ADOX.DataTypeEnum.adVarWChar, 255)

  tbl.Columns.Append("测试", ADOX.DataTypeEnum.adVarWChar, 255)

  tbl.Columns.Append("测试2", ADOX.DataTypeEnum.adVarBinary)

  '主键

  tbl.Columns("id").Properties("autoincrement").Value = True

  tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id")

  Cat.Tables.Append(tbl)

  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  ''''''''''''写入ACCESS数据库

  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  Dim ConnectionStr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & SaveFile

  Dim myConn As New OleDbConnection

  myConn.ConnectionString = ConnectionStr

  Dim sqlString As String

  Dim myCmd As OleDb.OleDbCommand = Nothing

  myConn.Open()

  sqlString = "INSERT INTO Table1 (工况,船舶运动,纵荡加速度,横荡加速度,垂荡加速度,测试,测试2) "

  sqlString = sqlString + vbCrLf + "VALUES(@工况,@船舶运动,@纵荡加速度,@横荡加速度,@垂荡加速度,@测试,@测试2)"

  For i As Integer = 1 To 200

  myCmd = New OleDbCommand(sqlString, myConn)

  myCmd.Parameters.AddWithValue("@工况", "满载")

  myCmd.Parameters.AddWithValue("@船舶运动", "纵摇")

  myCmd.Parameters.AddWithValue("@纵荡加速度", i)

  myCmd.Parameters.AddWithValue("@横荡加速度", i)

  myCmd.Parameters.AddWithValue("@垂荡加速度", i)

  myCmd.Parameters.AddWithValue("@测试", i)

  myCmd.Parameters.AddWithValue("@测试2", i * i)

  myCmd.ExecuteNonQuery()

  Next

  myCmd.Dispose()

  myCmd = Nothing

  myConn.Close()

  myConn.Dispose()

  myConn = Nothing

  '释放ldb文件的关键

  Cat.ActiveConnection.Close()

  System.Runtime.InteropServices.Marshal.ReleaseComObject(tbl)

  System.Runtime.InteropServices.Marshal.FinalReleaseComObject(tbl)

  System.Runtime.InteropServices.Marshal.ReleaseComObject(Cat)

  System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Cat)

  Cat = Nothing

  GC.WaitForPendingFinalizers()

  GC.Collect()

  GC.WaitForPendingFinalizers()

  GC.Collect()

  If My.Computer.FileSystem.FileExists(SaveFile) = True Then

  My.Computer.FileSystem.DeleteFile(SaveFile)

  End If

http://topic.csdn.net/u/20120528/16/1638f17f-9839-45d5-8427-5b30586bce94.html?seed=1172642860&r=78710267#r_78710267