Экспорт из VBA_Excel в PhPMyAdmin

[Stepan_888]

Все привет. Есть таблица Excel в которой есть данные. Я настроил импорт из PhPMyAdmin в таблицу Excel (все работает), но вот экспорт из Excel в PhPMyAdmin пока не получается. Есть код взятый из интернета, помогите мне с ним разобраться.

Код экспорта из Excel в PhPMyAdmin
Private Sub CommandButton3_Click()
Dim lg As String
Dim ps As String
Dim fn As String

lg = "root"
ps = ""
fn = ""

cmd.CommandText = "INSERT INTO main_table (login, password, full_name) VALUES ('" & lg & "', '" & ps & "', '" & fn & "')"
cmd.Execute
End Sub

Код для импорта из PhPMyAdmin в Excel (Работает)
Private Sub Workbook_Open()
Dim oConn As Object
Dim cmd As ADODB.Command 'переменная в которой будет запрос
Set oConn = New ADODB.Connection

oConn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=127.0.0.1;" & _
"DATABASE=compinfo;" & _
"UID=root;" & _
"PASSWORD=;" & _
"PORT:3306;" & _
"CHARSET=cp1251;" & _
"Option=3;"

If oConn.State = adStateOpen Then
MsgBox "Поключено! =)"
Else
MsgBox "Нет связи, проверте подключение"
End If
Set cmd = New ADODB.Command

Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
Set rec = New ADODB.Recordset

Set cmd.ActiveConnection = oConn 'указываем соединение из примера выше
cmd.CommandText = "select * from main_table" 'собственно, запрос
cmd.CommandType = adCmdText
cmd.Execute
Set rec.ActiveConnection = oConn
rec.Open cmd
End Sub

[Aleksandr H.]

на скрине не видно как-то полей
login, password, full_name
в которые insert вставит lg = "root" ps = "" fn = ""