[الجندى]

السلام عليكم

ما الخطأ فى هذا الكود

كود :

Dim SaveDataSQl1 As String = "INSERT INTO qustions (q,a1,a2,a3,a4,at) VALUES(@q,@a1,@a2,@a3,@a4,@at)"
        Dim SaveDataCMD1 As New OleDbCommand

        If Con.State = ConnectionState.Closed Then
            ' إذا كان الاتصال مقفل
            Con.Open()

            With SaveDataCMD1
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveDataSQl1

                .Parameters.AddWithValue("q", TextBox1.Text)
                .Parameters.AddWithValue("a1", TextBox2.Text)
                .Parameters.AddWithValue("a2", TextBox3.Text)
                .Parameters.AddWithValue("a3", TextBox4.Text)
                .Parameters.AddWithValue("a4", TextBox5.Text)
                .Parameters.AddWithValue("at", TextBox6.Text)

                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        Else
            ' الاتصال مفتوح مسبقاً
            With SaveDataCMD1
                .Connection = Con
                .CommandType = CommandType.Text
                .CommandText = SaveDataSQl1

                .Parameters.AddWithValue("q", TextBox1.Text)
                .Parameters.AddWithValue("a1", TextBox2.Text)
                .Parameters.AddWithValue("a2", TextBox3.Text)
                .Parameters.AddWithValue("a3", TextBox4.Text)
                .Parameters.AddWithValue("a4", TextBox5.Text)
                .Parameters.AddWithValue("at", TextBox6.Text)


                .ExecuteNonQuery()
                .Dispose()
            End With
            Con.Close()
        End If