Форма с кнопкой для загрузки данных из Excel в SQL Server - VB

Формулировка задачи:

Добрый день! Получил задание от разработать форму на Excel для автоматической загрузки данных из Excel в таблицу SQL Server 2008. С кнопкой. В таблице 4 столбца.
К сожалению, с VBA практически не сталкивался, похожих примеров не нашел. Может уже есть готовый шаблон для такого задания?

Решение задачи: «Форма с кнопкой для загрузки данных из Excel в SQL Server»

textual
                            Листинг программы 
                        

                            Sub Кнопка1_Щелчок()

Dim cn As ADODB.Connection
With ActiveWorkbook.ActiveSheet

Set cn = New ADODB.Connection
cn.connectionstring = "DATABASE=Analitics;DRIVER=SQL Server;SERVER=NAV-BACKUP;"
cn.Open

i_row = 2
Do While Cells(i_row, 1).Value <> ""
cn.Execute "INSERT INTO tbl_dbv_RNaO VALUES('" & .Cells(i_row, 1) & "', '" & Format(.Cells(i_row, 2).Value, "YYYY-MM-DD hh:mm:ss") & "', '" & .Cells(i_row, 3) & "')"
i_row = i_row + 1
Loop

cn.Close
Set cn = Nothing

End With

End Sub

                        