Visual Basic - ListBox y Access

Hola!!! Necesito ayuda urgente con listbox, no hay manera de que pueda transferir los datos de la listBox (Maximo 5 a la bases de datos creada en Access). Adjunto en codigo para ver si alguien me puede ayudar. Please!!!!

Dim i, j As Integer
Private Sub addbook_Click()
If List1.ListCount > 4 Then
MsgBox \"Maximun 5 books per person\"
Else
List1.AddItem Text3.Text
Text3.Text = \"\"
End If
End Sub

Private Sub deletebook_Click()
List1.RemoveItem (j)
End Sub

// Presionando boton 3 supuestamente mandaria los datos a mi base de datos y podria entrar los del nuevo cliente.

Private Sub Command3_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields(\"Full name\").Value = Text1.Text
Data1.Recordset.Fields(\"Account\").Value = Text2.Text
For i = 0 To List1.ListCount
Data1.Recordset.AddNew
Data1.Recordset.Fields(\"books\").Value = List1.list(i)
Data1.Recordset.Update
Next
End Sub
Private Sub Command4_Click()
Form5.Hide
Form2.Show
End Sub

Private Sub Command5_Click()
List1.Clear
Text1.Text = \"\"
Text2.Text = \"\"
Text3.Text = \"\"
End Sub

Private Sub List1_Click()
j = List1.ListIndex
End Sub

El problema es con los valores de los campos, no admite valor null

Gracias

Asigna la cadena vacia ( "") al campo de la base de datos.

Saludos Pola

Hola Pola,
A que te refieres asigna la cadena vacia al campo de la base de datos? Perdona pero soy todavia principiante. Puedes mandarme un ejemplo.
Muchas gracias

Me dá la impresión que al menos un registro de cada vez si graba, el primer libro, pero a partir de ahí, en el For, como después del addnew solo hay un libro solo grabará el libro, sin el nombre y el account, a no ser que sean campos obligatorios, con lo que tendras un mensaje de error.
El For debe ser 0 to listcount-1 ya que se empieza en cero.