Visual Basic.NET - De listbox a datagrid

Buenas,

Tengo un problema, necesito pasar el contenido de dos listbox a un datagrid. No soy un experto pero os adjunto lo que tengo hecho. Necesito que se muestren en columnas diferentes de datagrid el contenido de los listbox.


Aqui os dejo el codigo que tengo pero no funciona..



'______________________________________________
Me.ListBoxD.Items.Add(doc)
Me.ListBoxR.Items.Add(cont)


'____________________________________________________________
'____________________________________________________________
' Crea un nuevo objeto recordset
rst_Desconectado = New ADODB.Recordset
' Define dos campos de tipo string
With rst_Desconectado.Fields
.Append("DECLARACIONES", ADODB.DataTypeEnum.adInteger)
.Append("REGISTROSD", ADODB.DataTypeEnum.adInteger)
End With
' Abre el recordset desconectado
rst_Desconectado.Open()

' Agrega los registros _
'***************************************************
rst_Desconectado.AddNew(doc, cont)

' Asigna el recordset desconectado al DataGrid
DGVREGISTROS.DataSource = rst_Desconectado
' establece un ancho a las columnas
With DGVREGISTROS
.Columns(0).Width = 100
.Columns(1).Width = 100
End With
' se mueve al primer registro
rst_Desconectado.MoveFirst()
'____________________________________________________________

Agradeceria una ayuda, Un saludo a todos

Si lo que quieres es que cuando se seleccione un item de la lista se pase a una comlumna del DataGrid, seria algo asi dentro del evento SelectIndexChanged de tu listbox:

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

DataGridViewX1.Item(0, 0).Value = ListBox1.Text

end sub

Ten en cuenta que pondra lo que selecciones en la lista en la primera columna(0) y en la primera fila(0), si no tienes que hacer un bucle e ir poniendo con el indice.