Yeni Kayit Yapilamiyor ?

Dim cnn as Object satiri
Dim cnn, cmdCommand as Object olarak degistirin

sqlText degiskenini olusturan 3 sütun görüyorum. VALUES ( içinde, GRUP_KOD ve GRUP_ISIM degerlerini tirnak (') isaretleri arasinda almaniz gerekmez mi?
sqlText=sqlText + "'"+Cells(say, ?).value + "'," seklinde
Tabloya degisken olarak GRUP_KOD ve GRUP_ISIM alanlarina deger atayacaksiniz sanirim (bir de kayit yapan kullanici ve tarih alanlari eklenebilir)
sqlText'in sonunda da VALUES ile açilan parantezin kapanmasi gerekir ki
Komutunuz SQL tarafindan hatasiz islenebilsin.

Yardimici olabildim mi? Kolay gelsin

sqlTEXT'i kontrol ettiniz mi? Debug.Print sqlText aldiginiz metni SQL'de manuel çalistirmayi deneyin. Aklima syntax probleminden baska bir sey gelmiyor.
adCommanText bir sabittir.(Enum)

Makroyu degistirdim. Baskalari da yararlanabilsin

Sub Kod1Olustur()
Dim cnn, cmdCommand As Object
'On Error Resume Next
Set cnn = 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
   
    Range("A6").Select
    Selection.CurrentRegion.Select
    sonst = Selection.Rows.Count  '[b65536].End(3).Row
    For say = 6 To sonst
      
       vtSql = ""
       vtSql = "INSERT INTO TBLSTOKKOD1 (ISLETME_KODU,SUBE_KODU,GRUP_KOD) VALUES("   ' buradaki tirnak olmaz
       vtSql = vtSql & Cells(say, 1) & ","
       vtSql = vtSql & Cells(say, 2) & ","
       vtSql = vtSql & "'" & Cells(say, 3) & "')"    ' Text degerleri Tirnak isaretleri arasina aldim
       Debug.Print vtSql
            With cmdCommand
            .CommandText = vtSql
            .CommandType = adCmdText
            .Execute
            End With
      Next say
    cnn.Close
    Set cmdCommand = Nothing
    Set cnn = Nothing
End Sub