Visual Basic - De excel a Postgres

Sub Excel_Postgres()

     Dim MiRecordset As ADODB.Recordset

     Dim TXT As String

     Dim CamposEXCEL As String

     'PARTE 01: Inserción de los datos a la tabla

     For i = 1 To 25

        'Punto = "SRID=4326;POINT(" & Range("B" & i + 1).Value & " " & Range("B" & i + 1).Value & ")"

        TXT = "INSERT INTO " & Chr(34) & "historico_camilo" & Chr(34) & " VALUES (" & Range("AB" & i + 1).Value & ")"

        Set MiRecordset = ConexionBaseDatos("SERVIDOR", "5432", "BASE", "USUARIO", "CLAVE", TXT) '(****) ver descripción de esta Función"

        MiRecordset.Open

     Next

End Sub

Function ConexionBaseDatos(servidor As String, port As String, BD As String, usuario As String, clave As String, ByVal txtSQL As String) As ADODB.Recordset

    Dim cn As ADODB.Connection

    Dim MiRecordset As New ADODB.Recordset

    Dim TXT As String

    Set cn = New ADODB.Connection

    TXT = "Driver={PostgreSQL ODBC Driver(ANSI)};Server=" & "SERVIDOR" & ";Port=" & "5432" & ";Database=" & "BASE" & ";Uid=" & "USUARIO" & ";Pwd=" & "CLAVE" & ";"

    cn.ConnectionString = TXT '

    cn.Open (TXT)

    Set MiRecordset = New ADODB.Recordset

    MiRecordset.CursorType = adOpenStatic

    MiRecordset.CursorLocation = adUseClient

    MiRecordset.LockType = adLockOptimistic

    MiRecordset.Source = txtSQL

    MiRecordset.ActiveConnection = cn

    Set ConexionBaseDatos = MiRecordset

End Function