Excel'den Stok Sabit Degistirme

Mehmet bey merhabalar,

'On Error Resume Next
Set cn = CreateObject("ADODB.Connection")
Dim vtSql
Dim say%
   Set cnn = CreateObject("ADODB.Connection")
   cnn.Open "driver={SQL Server};server=" & Range("b1").Value & ";uid=" & Range("b2").Value & ";pwd=" & Range("b3").Value & ";database=" & Range("b4").Value & ""
    Set cmdCommand = CreateObject("ADODB.Command")
    Set cmdCommand.ActiveConnection = cnn
    sonst = [b65536].End(3).Row
    'Satir Kadar Döngü------------------
    For say = 6 To sonst
        vtSql = ""
        vtSql = vtSql & "UPDATE TBLSTSABIT SET STOK_ADI=.dbo.TURKCE('"
        vtSql = vtSql & esctrk(Cells(say, 3))
        vtSql = vtSql & " WHERE STOK_KODU='"
        vtSql = vtSql & Cells(say, 2)
        vtSql = vtSql & "' AND SUBE_KODU=" & Cells(say, 1)
            With cmdCommand
            .CommandText = vtSql
            .CommandType = adCmdText
            .Execute
            End With
      Next say
    'Satir Kadar Döngü Sonu------------------
    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
End Sub

Public Function esctrk(gstr)
    Dim geri As String
    geri = gstr
    geri = Replace(geri, "G", "~#G")
    geri = Replace(geri, "S", "~#S")
    geri = Replace(geri, "I", "~#I")
    geri = Replace(geri, "g", "~#g")
    geri = Replace(geri, "s", "~#s")
    geri = Replace(geri, "i", "~#i")
    esctrk = geri
End Function