Code vb.net

Public Sub ConnectDatabase()

    Try
        If conn.State = ConnectionState.Closed Then
            conn.ConnectionString = "Server=Dell-PC;Data Source=localhost:3306;Database=dbquicklend;User ID=root;"
            conn.Open()
        End If

    Catch myerror As Exception
        MsgBox("Error in Database Connection", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error")
    End Try
End Sub

Public Sub DisconnectDatabase()
    Try
        conn.Close()
    Catch myerror As MySql.Data.MySqlClient.MySqlException
    End Try
End Sub