ما الخلل في كود الاضافة ؟ آمل التعليق وشكرا

السلام عليكم

يا جماعة انا احاول اضيف صف للجدول من خلال جملة استعلام لكن بعد تنفيذ الكود لا اجد الصف في الجدول يعني لم ينفذ استعلام الاضافة .. اين الخلل ؟

الكود :

Dim connetionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String

        connetionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
        sql = "INSERT INTO Table2 VALUES ('s', 's')"



        cnn = New SqlConnection(connetionString)
        Try
            cnn.Open()
            cmd = New SqlCommand(sql, cnn)
            cmd.ExecuteReader()

            cmd.Dispose()
            cnn.Close()
            MsgBox(" ExecuteNonQuery in SqlCommand executed !!")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

جربت اضافة ارقام ايضا ولم تنجح التجربة

   sql = "INSERT INTO Table2 VALUES (3, 3)"