How to import data from Excel to MYSQL Server using VB

[kelvenng]

Hi all hope some one can help me solve my problem.
Actually I want import data from excel to my MYSQL server by using VB6
I facing the problem on my coding and system show me the error.
below is my VB coding hope some one can tell me my error.
Thanks

Dim cn As ADODB.Connection
Dim sql As String
Dim lngrecsaff As Long

Set cn = New ADODB.Connection
cn.Open "DRIVER={MySQL ODBC 3.51 Driver};DSN='';DATABASE=" & DBName & ";SERVER=" & Server & ";UID=root;PASSWORD='password';PORT=3306;OPTION=3; STMT=;"

sql = "select * into z from " & _
"database('microsoft.jet.oledb.4.0'," & _
"'excel 8.0;database=C:\insert test\mak.xls', " & _
"'select * from [sheet1$]')"
Debug.Print sql
cn.Execute sql, ingrecsaff, adExecuteNoRecords
'strsql, lngrecsaff, adexcutenorecords
Debug.Print "records affected: " & ingrecsaff

cn.Close
Set cn = Nothing