If Not SQLcon Is Nothing Then
            Dim cmd As New MySqlCommand("SELECT CURRENT_USER();", SQLcon)
            Dim oReader As MySqlDataReader = cmd.ExecuteReader
 
            sTemp = oReader.GetString(0)
 
            oReader.Close()
            cmd = Nothing
        End If