How to save all the items in listbox in MSaccess table. Pls help me this is for my thesis thanks.

You can use many ways here..
Here is an example :

Private Sub Save_Click()
    Set Conn = New ADODB.Connection
    Conn.Provider = "microsoft.jet.oledb.4.0"
    Conn.CursorLocation = adUseClient
    Conn.Open App.Path & "\Authors2.mdb"
    
    For i = 0 To List1.ListCount - 1
        Set rs = Nothing
        Set rs = New ADODB.Recordset
        
        rs.Open "SELECT * from Login", Conn, adOpenStatic, adLockOptimistic
        
        rs.AddNew
        rs!Author = List1.List(i) ' add all items on listbox
        rs.Update
    Next i
    MsgBox "Data Added", vbInformation, "Add Data"
    rs.Close
    Conn.Close
End Sub