VB reads SQL text and deletes

 Private SubUpdatetask ()DimConnStr as String= Configurationmanager.connectionstrings ("taxsoftwareconnection"). ToString ()iffile.exists (path)DimFile asfileinfo=NewFileInfo (path)DimSr asStreamReader =file. OpenText ()DimScript as String=Sr. ReadToEnd ()Try                    DimConn assqlconnection=NewSqlConnection (CONNSTR) Conn. Open ()DimCmd asSqlcommand=Conn. CreateCommand () Cmd.commandtext=script cmd. ExecuteNonQuery () Conn. Close ()CatchEx asExceptionEnd TrySr. Close () file. Delete ()End If        End Sub

VB reads SQL text and deletes