Imports System.Management

Imports MySql.Data.MySqlClient
Imports AutoUpdaterDotNET
Imports System.Net
Imports System.Text.RegularExpressions
Imports System.Threading

Public Function jokenconn() As MySqlConnection
    Return New MySqlConnection("server=mysql.life-host.info;user id=exeportal;password=ygejupyqu;database=life_dev")
End Function

Dim cmd As New MySqlCommand
            Dim da As New MySqlDataAdapter
            Dim con As MySqlConnection = jokenconn()

            sql = String.Format("SELECT * FROM `users` WHERE username= '{0}' and status= '{1}'", TextBox1.Text, 1)
                .Connection = con
                .CommandText = sql
            End With
            da.SelectCommand = cmd
            da.Fill(publictable)
            If publictable.Rows.Count > 0 Then
                Dim user_type, name As String
                If user_type = "" Then
                ElseIf user_type = "Encoder" Then
                Else
                    'welcome
                End If

            Else
                MsgBox("error")
                End

            End If
            da.Dispose()
            con.Clone()