Ciao a tutti, sto studiando da poco vb2008 e vorrei sapere se mi sono complicato la vita ( penso di si)

Ho due database in access il primo db_schede.mdb che ha all'interno una colonna Tipi e il secondo tbdb.mdb che ha all'interno una colonna disposchede_tipo.

Detto cio' devo semplicemente , creando una applicazione console, eliminare tutti i campi di dbschede.mdb(colonna tipi) che hanno come valore i campi di tbdb.mdb (colonna disposchede_tipo)

La mia applicazione funzionante è la seguente:


Imports System.Data
Imports System.Data.OleDb


Module Module1

Public Program_Path = My.Application.Info.DirectoryPath

Dim DB_Schede As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Program_Path & "\DB_DOWN\DB_Schede.mdb;Persist Security Info=False")
Dim DB_TBDB As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Program_Path & "\tbdb.mdb;Persist Security Info=False")



Private Sub connetti_db()



Dim Cmd2 As OleDbCommand = DB_Schede.CreateCommand


Dim DataAdapter1 As New OleDbDataAdapter("SELECT * from disposchede_tipo", DB_TBDB)
Dim DataSet1 As New DataSet
DataAdapter1.Fill(DataSet1, "disposchede_tipo")

Dim Dataview1 As DataView = New DataView(DataSet1.Tables("disposchede_tipo"))


DB_Schede.Open()

Dim i As Integer

For Each rowView In Dataview1
For i = 0 To Dataview1.Table.Columns.Count - 1


Cmd2.CommandText = "DELETE From disposchede WHERE Tipo='" & rowView(i) & "';"
Cmd2.ExecuteNonQuery()

Next
Next
DB_Schede.Close()

end sub

Sub Main()


connetti_db()
End Sub

End Module



Avete suggerimenti ? Vi ringrazio in anticipo