Dim conn As ADODB.Connection

Private Sub Command1_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
Dim mystream As ADODB.Stream


Set rs = New ADODB.Recordset
Set mystream = New ADODB.Stream
SQL = "LOAD DATA INFILE 'c:/csv/artikli.csv' " _
   & "INTO TABLE artikli " _
   & "FIELDS TERMINATED BY ';' " _
   & " ENCLOSED By '\" & Chr(34) & "'"
   Me.Text1.Text = SQL
conn.Execute SQL
End Sub

Private Sub Form_Load()

Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=127.0.0.1;" _
            & "DATABASE=2017_test;" _
            & "UID=root;" _
            & "PWD=xxxxxx;"
conn.CursorLocation = adUseClient
conn.Open
End Sub