Public Function caricarecord(ByVal Iva As PropertyIva) As PropertyIva
        SqlCmd.CommandText = "GetIva_1"
        SqlCmd.Parameters.Add("Codiceiva", SqlDbType.VarChar).Value = Iva.Codice
        SqlCmd.Connection = Db
        SqlCmd.CommandType = CommandType.StoredProcedure
        SqlDr = SqlCmd.ExecuteReader
        If SqlDr.Read() Then
            Iva.Codice = SqlDr.GetSqlString(0).Value()
            Iva.Descrizione = SqlDr.GetSqlString(1).Value
            Iva.Aliquota = SqlDr.GetSqlDecimal(2).Value
            REM modifica = True : Iva.Button1.Text = "Aggiorna (F8)" : Iva.TextBox2.Enabled = False : Iva.TextBox1.Focus()
        End If
        SqlDr.Close()
        SqlCmd.Parameters.Clear()
        SqlCmd.Dispose()
        Return Iva
    End Function

poi nella form ho scritto così:



    Private Iva As New PropertyIva
    Private load_record As New GestoreIva

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                Iva.Codice = Me.TextBox2.Text
                load_record.caricarecord(Iva)
                Me.TextBox1.Text = Iva.Descrizione
    End Sub

e pare che funzioni....