Visual Basic - LISTBOX

Saludos nuevamente amigos programadores

Me gustaria saber si por ejemplo, tengo un ListBox al cual se le agrega varias cosas por ejemplo:
ABC
DEFG
HIJK
LMN
OPQ

Y deseo guardar esos datos de la lista en (un solo campo) de la base de datos que quede asi en el campo de la BD:
ABC, DEFG, HIJK, LMN, OPQ

Había pensado colocar una variable de acumulador este es el ejemplo:
Dim Acumulador As String
For i = 0 To Lista.ListCount - 1
Acumulador = Lista.List(i) & ", " & Acumulador
Next

Al usar esto de esta forma:
Acumulador = Lista.List(i) & ", " & Acumulador
Los datos se guardan asi: OPQ, LMN, HIJK, DEFG, ABC,
(al reves y termimando con una , )

Y si lo uso asi:
Acumualador = Acumulador & ", " & Lista.List(i)
Los datos se guardan asi: ,ABC, DEFG, HIJK, LMN, OPQ
(pero con la , al inicio)

No sabría como corregir esto de la "," ya que como se ve, es necesaria para separar cada dato del listbox y asi estar todos en un solo campo de la tabla.

De qué otra forma podría hacerlo mejor?

Gracias por tu ayuda por responder o de tomarte el tiempo por esto de igual forma.
Saludos.

Podría Quitar la "," pero los datos son nombres y podría traer confusión de saber a que nombre pertenece algun dato, por eso la "," ayuda a visualizar mejor la separacion de estos datos.

Otro problema es de que, ¿cómo se verian estos datos al volverlos a llamar al ListBox?

La idea era ver en tipo lista estos datos uno debajo de otro, pero al parecer, es menos complicado colocarlos todos en un TextBox que por medio de un Listbox cierto?

Pero tu problema es facil de resolver, solamente debes agregar un bloque if para quitar el "," en el comienzo:

Dim Acumulador As String
For I = 0 To Lista.ListCount - 1
If I = 0 Then
Acumualador = Lista.List(I)
ElseIf I <> 0 Then
Acumualador = Acumulador & ", " & Lista.List(I)
End If
Next

Y para llenar el listbox debes hacer una cosa asi:

Dim Todo As String
Dim I As Integer, J As Integer
Todo = "ABC, DEFG, HIJK, LMN, OPQ"
J = 1
For I = 1 To Len(Todo)
If Mid(Todo, I, 2) = ", " Then
Combo1.AddItem Mid(Todo, J, I - J)
J = I + 2
End If
If I = Len(Todo) Then

Combo1.AddItem Mid(Todo, J, (I + 1) - J)
End If
Next I
Suerte y saludos desde Chile,
mike

Muchas gracias Mike, en verdad que me estaba complicando, me estaba ahogando en un base de agua, caramba.

Bueno este post ya se perdio en el horizonte, no sé si hayas colocado lo de avisar por correo... ojala que si para saber que si vi el thread, pero igual hago la lucha a ver si es así.

Gracias amigo (pulgar arriba)