Cálculo de horas no VBA e gravando em Mysql

[Luis_Gustavo]

E ai pessoal, tudo bem?

Preciso de um super help com o meu projeto, estou inserindo dados de uma Form do Excel no Mysql , preciso inserir o horario que uma form abre e outro horário que ela fecha e o intervalo entre elas, Assim:

Tabela:

horario1 DATETIME,

horario2 DATETIME,

Diferenca DATETIME

 

Form1:

Private Sub UserForm_Initialize()
inicio = Now()
End Sub

Private Sub UserForm_Terminate()

fim = Now()

diferenca = DateDiff("n", inicio, fim) 'Não sei se essa é a forma correta 
Conectar_BD

End Sub

 

Módulo do VBA:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
Dim inicio As Date
Dim fim As Date
Dim diferenca As Date

Sub Conectar_BD()

'connect to MySQL server using Connector/ODBC
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER=MySQL ODBC 5.3 Unicode Driver;" _
& "SERVER=localhost;" _
& " DATABASE=horario;" _
& "UID=root;PWD=senha;" & "OPTION=3;"
conn.Open

conn.Execute "insert into horario (horario1, horario2, diferenca) values ('" & horario1 & "', '" &horario2& "', '" & diferenca & "')"
End Sub

 

 

Neste caso eu preciso que grave no Mysql em formato de data em uma única linha os dados, ex: 

horario1                                            horario2                                              diferenca                                                                                                                                                                     23/02/2016 10:30:10                        23/02/2016 10:35:10                           23/02/2016 00:05:00

Obrigado fico no aguardo.

Pessoal, me desculpem não sei como apareceu um tópico repetido esse é o tópico com a revisão.