Reset

try

dim r as System.Data.OleDB.OleDBDataReader
connection.open()
command1.commandText="alter table Prieteni drop column Colegi_facultate "
r=command1.executeReader

catch ex as Exception

show.messagebox(ex. message)

finally

conn.close()

end try