[CODE] 
id_utente = anagrafica_dipendenti.id_utente.Text
        Dim ds As New DataSet1
        Dim da As New MySqlDataAdapter
        Dim strSQL As String  
        conn.Open()
        cmd.Connection = conn
        strSQL =  "SELECT utenti.* , rep_funz.* , funzione.* from utenti inner join funzione on utenti.rep_funz = funzione.id_funzione inner join rep_funz on funzione.id_reparto = rep_funz.id_rep_funz where utenti.id_utente = '" & id_utente & "'"
        da = New MySqlDataAdapter(strSQL, conn)
        da.Fill(ds, "utenti")
[/CODE]