بستن کانکشن دیتابیس ( از بین بردن فایل ldb )

[Barbodben]

سلام
من طبق کدهای زیر در زمان اجرای برنامه یک دیتابیس با جدولاش میسازم و اونارو مقدار دهی می کنم.
بعد از مقدار دهی به جدولا یسری کدا از بانک استفاده میکنن؛ حالا کاری که من میخوام بکنم اینه که بعد از استفاده از بانک، فایل دیتابیسو پاکش کنم، ولی با اینکه کانکشنو می بندم، بازم دیتابیسم در حال استفادستو فایل Info.mdb و Info.ldb وجود دارن.



Dim cnnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Info.mdb"
Dim myConnection As New OleDbConnection(cnnStr)
Dim cmd As OleDbCommand
Dim catType = Type.GetTypeFromProgID("ADOX.Catalog")
Dim MM As Object = Activator.CreateInstance(catType)

catType.InvokeMember("Create", BindingFlags.InvokeMethod, Nothing, MM, New Object() {cnnStr})

myConnection.Open()
cmd = myConnection.CreateCommand()
cmd.CommandText = "CREATE TABLE tblPersonal1(Code Number , Name Text)"
cmd.ExecuteNonQuery()
cmd.CommandText = "CREATE TABLE tblPersonal2(Code Number , Name Text)"
cmd.ExecuteNonQuery()
cmd.CommandText = "CREATE TABLE tblPersonal3(Code Number , Name Text)"
cmd.ExecuteNonQuery()

myConnection.Close()

Dim myCommand As OleDbCommand = New OleDbCommand()
myCommand.Connection = myConnection
myCommand.CommandText = "INSERT INTO tblPersonal1 (Code, Name) VALUES (@Code, @Name)"
myConnection.Open()

myCommand.Parameters.Add("@Code", OleDbType.Integer).Value = txtCode.Text
myCommand.Parameters.Add("@Name", OleDbType.VarChar).Value = txtName.Text
myCommand.ExecuteNonQuery()

myConnection.Close()


حتی اینارم اضافه کردم، ولی بازم کانکشن باز بود :



myConnection.Close()
myConnection.Dispose()
myConnection = Nothing