db reference

Imports MySql.Data.MySqlClient
Public Class DBManager

    Private connectionString = "server=localhost;user id=root;password=;database=test;"
    Private connect As MySqlConnection
    Dim newName As String

    Public Sub New()
        Try
            Me.connect = New MySqlConnection(connectionString)
            Me.connect.Open()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Connection Failed")
        End Try
    End Sub

    Public Sub testConnection()
        If Me.connect.State = ConnectionState.Open Then
            MsgBox("I'm wide open, baby!")
        Else
            MsgBox("I'm NOT very open")
        End If
    End Sub

    Public Sub addUser(ByVal user As TestBean)
        Dim cmd As New MySqlCommand

        Try
            cmd.Connection = Me.connect
            cmd.CommandText = "INSERT INTO table1 VALUES(@id, @name)"
            cmd.Parameters.AddWithValue("@id", user.Id)
            cmd.Parameters.AddWithValue("@name", user.Name)

            Dim rowAffected = cmd.ExecuteNonQuery()
            MsgBox("Row Affected : " & rowAffected)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Connection Failed")
        End Try
    End Sub


    Public Sub editUser(ByVal user As TestBean)
        Dim cmd As New MySqlCommand

        Try
            cmd.Connection = Me.connect
            cmd.CommandText = "UPDATE table1 SET id = @id, name = @name WHERE id = @id"
            cmd.Parameters.AddWithValue("@id", user.Id)
            cmd.Parameters.AddWithValue("@name", user.Name)

            Dim rowAffected = cmd.ExecuteNonQuery()
            MsgBox("Row Affected : " & rowAffected)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Connection Failed")
        End Try
    End Sub


    Public Function getSingleUser(ByVal id As Integer) As TestBean
        'Form1.btn_add.Enabled = True
        'Form1.btn_edit.Enabled = True
        Dim query As String = "SELECT * FROM table1 WHERE id = " & id
        Dim user = New TestBean()

        Try
            Dim cmd As New MySqlCommand(query, Me.connect)
            Dim reader As MySqlDataReader = cmd.ExecuteReader()

            If reader.Read() Then
                user.Id = reader.GetInt16(0)
                user.Name = reader.GetString(1)
                Dim newId = user.Id
                newName = user.Name

                Form1.lbl_id.Text = newId
                Form1.lbl_name.Text = newName
            End If

            Select Case newName
                Case "John"
                    Form1.btn_edit.Enabled = False
                    Form1.btn_add.Enabled = False
                Case "erica"
                    Form1.btn_edit.Enabled = False
                Case Else
                    Form1.btn_add.Enabled = True
                    Form1.btn_edit.Enabled = True
            End Select

            reader.Close()


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Connection Failed")
        End Try

        Return user
    End Function

End Class