Here is the answer :
Imports System.Data.OleDb
Public Class Form1
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=PatientLabInvestigations.accdb;")
Dim cmd As New OledbCommand
Dim var1 As String
con.Open()
cmd.Connection = con
For l_index As Integer = 0 To lstlabinvestigations.Items.Count - 1
var1 = String.Concat("'", txtpatientname.Text.ToString(), "','", txtpatintage.Text.ToString(), "','", txtpatientticketno.Text.ToString(), "','", CStr(lstlabinvestigations.Items(l_index)).ToString(), "'")
cmd.CommandText = "INSERT INTO tblLabInvestigations(PatientName,Age,TicketNo,LabInvestigation) VALUES(" + var1 + ")"
cmd.ExecuteNonQuery()
Next
MessageBox.Show("Record saved successfully")
End Sub
End Class
Hope this helps. Try and if does work then accept and vote this answer