Public Class dbchange



    Private Sub change_db_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles change_db.Click
        main.db_host = dbhost.Text
        main.db_user = dbuser.Text
        main.db_pass = dbpass.Text
        main.db_name = dbname.Text

        Me.Close()
        main.Show()
    End Sub

    Private Sub dbchange_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class