Dim conn As MySqlConnection
        'connect to DB
        conn = New MysqlConnection()
        conn.ConnectionString = "server=yourwebsitehere.com; user id=your_username_here; password=your_password_here; database=yourdatabase_namehere"
        'see if connection failed.
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to database!")
        End Try
        'sql query
        Dim myAdapter As New MySqlDataAdapter

        Dim sqlquery = "SELECT * FROM login WHERE username = '" + txtuser.Text + "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        'start query
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()
        'see if user exists
        If myData.HasRows = 0 Then

            conn.Close()
            conn.Open()
            Dim registerfinal As New MySqlDataAdapter

            sqlquery = "INSERT INTO login (Username, Password) VALUES ('" + txtuser.Text + "','" + txtpass.Text + "')"
            myCommand.Connection = conn
            myCommand.CommandText = sqlquery
            'start query
            registerfinal.SelectCommand = myCommand
            myData = myCommand.ExecuteReader()
            MsgBox("New user has been added to the database!")
            Me.Hide()
        Else
            MsgBox("Login Accepted!")
            Form1.Show()
            Me.Hide()
        End If