Bien, ya no necesito pasar valores de un textbox al list box xq el list lo lleno desde la BD, pero lo q si necesito es mostrar en una misma linea del listbox 2 campos de la tabla. Con esta rutina lleno el listbox
Private Sub lleLisDocumentos()
'' Llena el combo de Cuenta Bancaria
Dim cfin_t_ord_pag_par As clsfin_t_ord_pag_par
Dim ds As DataSet
Dim cnxDB As clsConexion
Try
cnxDB = New clsConexion
cnxDB.Login = Me.loginProp
cnxDB.Password = Me.passwordProp
cnxDB.Servidor = Me.servidorProp
cnxDB.BaseDatos = Me.baseDatosProp
cnxDB.ConectarDB()
cfin_t_ord_pag_par = New clsfin_t_ord_pag_par
cfin_t_ord_pag_par.conexion = cnxDB
cfin_t_ord_pag_par.ordenaProp = "coddocordpag"
ds = cfin_t_ord_pag_par.consultar
Me.LisDocumentos.DataSource = ds.Tables(0)
Me.LisDocumentos.DisplayMember = "nomdocordpag "
Me.LisDocumentos.ValueMember = "coddocordpag"
ds = Nothing
cfin_t_ord_pag_par = Nothing
cnxDB.DesconectarDB()
Catch ex As System.Exception
Dim basErrores As New basErroresv100
basErrores.txtModulo.Text = Me.Name
basErrores.txtError.Text = "Error Cargando lista de documentos"
basErrores.txtDetalle.Text = ex.Message
basErrores.ShowDialog()
Me.Close()
End Try
End Sub