Dim pathToSheet As String
pathToSheet = "C:\workbook1.xls"
Dim cnExcel As New ADODB.Connection
cnExcel.Provider = "Microsoft.Jet.OLEDB.4.0"
cnExcel.ConnectionString = "Data Source=" & pathToSheet & "; Extended Properties='Excel 8.0; IMEX=0; HDR=Yes'"
cnExcel.Open
Dim Cmd As New ADODB.Command
Set Cmd.ActiveConnection = cnExcel
'Let's assume the workbook does not exist. This will create
'a new workbook with a sheet called Customers.
Cmd.CommandText = "CREATE TABLE Customers (FirstName TEXT(50), LastName TEXT(50))"
Cmd.Execute
Cmd.CommandText = "INSERT INTO [Customers$] (FirstName, LastName) VALUES (@FirstName, @LastName)"
Cmd.Parameters.Refresh
Dim i As Long, rowNo As Long
For i = 0 To LB.ItemsSelected.Count - 1
rowNo = LB.ItemsSelected(i)
Cmd.Parameters("@FirstName").Value = LB.Column(0, rowNo) 'column zero
Cmd.Parameters("@LastName").Value = LB.Column(1, rowNo) 'column 1
Cmd.Execute
Next i
cnExcel.Close
Set Cmd = Nothing