Загрузка данных на SQLServer

Я делаю макрос для загрузки данных на SQLServer, я хочу эту таблицу и каждый раз, когда вы запускаете макрос

1. Хотите работать с Recordset Добавить Последний добавленный ряд

---

Sub GetData() Call RecordsetFromSheet(prueba) End Sub 

---

 Public Function RecordsetFromSheet(ByVal tableName As String) Dim cn As Object Dim rs As Object Dim strCon As String Dim strSQL, strInput As String Dim cmd As Object 

Открытие соединения с SQL Server

 Set cn = CreateObject("ADODB.Connection") cn.ConnectionString = OleDbConnectionString("xxxxx", "xxxx", "xx", "xxxxxxx") cn.Open 

---

Закрытие соединения

• Соединение ADODB от VBA перестало работать
• Создание нескольких связанных таблиц в Access с VBA
• Значение VBA ADODB wierd получается из запроса
• VBA ADODB multirow insert не работает
• Драйвер Excel VBA SQL, который поддерживает> 65 тыс. Строк

 If CBool(cn.State And adStateOpen) = True Then cn.Close Set cn = Nothing End If End Function 

---

Функция для StringConnection

 Function OleDbConnectionString(ByVal Server As String, ByVal Database As String, _ ByVal UserName As String, ByVal Password As String) As String If UserName = "" Then OleDbConnectionString = "Provider=SQLOLEDB.1;Data Source=" & Server _ & ";Initial Catalog=" & Database _ & ";Integrated Security=SSPI;Persist Security Info=False;" Else OleDbConnectionString = "Provider=SQLOLEDB.1;Data Source=" & Server _ & ";Initial Catalog=" & Database _ & ";User ID=" & UserName & ";Password=" & Password & ";" End If End Function 

---