'connessione
Dim db_path As String = "C:\Users\Enrico\Documents\Visual Studio 2010\Projects\consolida assieme\db_consolida.mdb"
Dim stringaconn As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source="
stringaconn = stringaconn & db_path
Dim conn As OleDb.OleDbConnection = New OleDbConnection(stringaconn)
conn.Open()
'cancello la tabella distinta
Dim stringasql As String = "DROP TABLE distinta"
Dim objcomm As OleDb.OleDbCommand = New OleDbCommand(stringasql, conn)
objcomm.ExecuteNonQuery()
'query sql creo la tabella distinta
stringasql = "SELECT Numero_parte, sum(qtatot) AS QTA, max(nomefile) as nomefile INTO distinta FROM TElementi WHERE tipo <> 'Acquistato' GROUP BY Numero_parte ;"

objcomm = New OleDbCommand(stringasql, conn)
objcomm.ExecuteNonQuery()

conn.Close()
conn.Dispose()