Imports System.IO
Public Class frmSQLCript
    Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
        Dim fileno1 As Integer = 1
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            If OpenFileDialog1.FileName <> "" Then
                Try
                    TextBox1.Text = System.IO.File.ReadAllText(OpenFileDialog1.FileName)
                Catch ex As Exception
                    ' Let the user know what went wrong.
                    MsgBox(ex.Message)
                End Try
            End If
        End If

    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim db As New clsDB
        db.Exec_SQL(Me.TextBox1.Text)
    End Sub

    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
        Me.Close()
    End Sub
End Class