[VB.NET] Selezione valore di un elemento da ListBox

[abellos]

Ciao non riesco a selezionare un valore da una listbox ho questo codice.

Private Sub sceltaTipo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SQL As String

        SQL = "SELECT * FROM def_tipo ORDER BY codTipoDoc"
        Dim AdapterArch As OleDbDataAdapter = New OleDbDataAdapter(SQL, ConnDB)

        Dim dtsArch As New DataSet

        AdapterArch.MissingSchemaAction = MissingSchemaAction.AddWithKey

        'Carico il dataset 
        AdapterArch.Fill(dtsArch, "def_tipo")

        Dim tbArch As DataTable = dtsArch.Tables("def_tipo")

        tipoDoc.ValueMember = "codTipoDoc"
        tipoDoc.DisplayMember = "descrizioneTipoDoc"
        tipoDoc.DataSource = tbArch

        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
    End Sub

    Private Sub tipoDoc_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tipoDoc.MouseDoubleClick

        TipoDocumento = tipoDoc.SelectedItem.ToString()

        MsgBox(TipoDocumento)
        canClose = True

    End Sub

tipodoc e' una listbox (con valori PO001,PO502,PO511) di tre righe, con il comando

tipoDoc.SelectedItem.ToString()

sono sempre riuscito a recuperare i valori da una combobox non dovrebbe essere la stessa cosa? con la riga sopra mi ritorna System.Data.DataRowView al posto di un valore? come posso risolvere?

[oregon]

Ma

TipoDocumento

è una stringa?

Dim TipoDocumento As String

[abellos]

Si scusami, Tipodocumento e' una variabile string pubblica che ho dichiarato in un modulo