Private Sub visBruker()
        Dim blodlagerTab As New DataTable()

        Dim fornavn As String
        Dim etternavn As String
        Dim telefon As String

        blodlagerTab = bruker.GetTelefon()

        For Each row In blodlagerTab.Rows

            fornavn = row("fornavn")
            etternavn = row("etternavn")
            telefon = row("telefon")

            txtFornavn.Text = fornavn
            txtEtternavn.Text = etternavn
            txtTelefon.Text = telefon

        Next row
    End Sub