Import Data from excel to MsSQL 2000

Dim cn As ADODB.Connection

Dim strSQL As String

Dim lngRecsAff As Long

Set cn = New ADODB.Connection

cn.Open "Provider=SQLOLEDB;Data Source=;" & _

"Initial Catalog=;User ID=;Password="

'Import by using OPENDATASOURCE.

strSQL = "SELECT * INTO XLImport6 FROM " & _

"OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _

"'Data Source=C:\test\xltest.xls;" & _

"Extended Properties=Excel 8.0')...[Customers$]"

Debug.Print strSQL

cn.Execute strSQL, lngRecsAff, adExecuteNoRecords

Debug.Print "Records affected: " & lngRecsAff

'Import by using OPENROWSET and object name.

strSQL = "SELECT * INTO XLImport7 FROM " & _

"OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _

"'Excel 8.0;Database=C:\test\xltest.xls', " & _

"[Customers$])"

Debug.Print strSQL

cn.Execute strSQL, lngRecsAff, adExecuteNoRecords

Debug.Print "Records affected: " & lngRecsAff

'Import by using OPENROWSET and SELECT query.

strSQL = "SELECT * INTO XLImport8 FROM " & _

"OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _

"'Excel 8.0;Database=C:\test\xltest.xls', " & _

"'SELECT * FROM [Customers$]')"

Debug.Print strSQL

cn.Execute strSQL, lngRecsAff, adExecuteNoRecords

Debug.Print "Records affected: " & lngRecsAff

cn.Close

Set cn=Nothing