Visual Basic para Aplicaciones - Error entre VBA y SQL Server

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    'aqui debe guardar toda la informacion en SQL Server

    Dim conn As ADODB.Connection

    Dim sConnString As String

    Dim SQL_String As String

    ' Create the connection string.

    sConnString = "Provider=SQLOLEDB;Data Source=SERVIDOR\SQLCONTROLDOC;Initial Catalog=DB" & Sheets("CONFIGURACION").Range("B2").Value & ";Persist Security Info=True;User ID=sa;Password=Cruceni0098.."

    ' Create the Connection and Recordset objects.

    Set conn = New ADODB.Connection

    'Set rs = New ADODB.Recordset

    ' Open the connection and execute.

    conn.Open sConnString

    If Sheets("PEDIDO").Range("Num_Pedido").Value <> "" Then

         SQL_String = "update TBL_Pedidos set  Importe=" & Sheets("PEDIDO").Range("Importe_Pedido").Value & _

                                 " WHERE Num_Pedido=" & Sheets("PEDIDO").Range("Num_Pedido").Value & " AND id_Empresa=" & Sheets("CONFIGURACION").Range("B3").Value & ";"

        ' MsgBox (SQL_String)

             conn.Execute ("update TBL_Pedidos set  Importe=" & Sheets("PEDIDO").Range("Importe_Pedido").Value & _

                                 " WHERE Num_Pedido=" & Sheets("PEDIDO").Range("Num_Pedido").Value & " AND id_Empresa=" & Sheets("CONFIGURACION").Range("B3").Value & ";")

    End If

    ' Clean up

    If CBool(conn.State And adStateOpen) Then conn.Close

    Set conn = Nothing

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

     'aqui debe guardar toda la informacion en SQL Server

    Dim conn As Object

    Dim re As Object

    Dim sConnString As String

    Dim SQL_String As String

    ' Create the Connection and Recordset objects.

    Set conn = CreateObject("ADODB.Connection")

    Set re = CreateObject("ADODB.Recordset")

    sConnString = "Provider=SQLOLEDB;Data Source=SERVIDOR\SQLCONTROLDOC;Initial Catalog=DB" & Sheets("CONFIGURACION").Range("B2").Value & ";Persist Security Info=True;User ID=sa;Password=Cruceni0098.."

    ' Open the connection and execute.

    conn.Open sConnString

    If Sheets("PEDIDO").Range("Num_Pedido").Value <> "" Then

        SQL_String = "update TBL_Pedidos set  Importe=" & Sheets("PEDIDO").Range("Importe_Pedido").Value & _

                     " WHERE Num_Pedido=" & Sheets("PEDIDO").Range("Num_Pedido").Value & " AND id_Empresa=" & Sheets("CONFIGURACION").Range("B3").Value & ";"

        ' MsgBox (SQL_String)

        re.Open SQL_String, conn

    End If

    ' Clean up

    If CBool(conn.State And adStateOpen) Then conn.Close'si lo que quieres es cerrar la conexion basta con poner if conn.state then conn.close

    Set conn = Nothing

    Set re = Nothing

End Sub