[vbnet]

.....
إحرص إذا كانت أسماء الحقول تشابه أسماء محجوزة أو تحتوي مسافات أن تجعلها بين أقواس مربعة [] (أسماء البارامتيرات لا توضع بين أقواس مربعة)
عند التجربة عطل أسطر Try لتعرف مكان الخلل

كود :

Dim sql As String = " INSERT INTO [Rays] ([Name], [Date], [PicPath]) VALUES (@Name, @Date, @PicPath) "
Dim cmd As New OleDbCommand(sql, CON)
' مع الأكسس إحرص على الترتيب في البارامترات هنا
cmd.Parameters.AddWithValue("@Name", TextBox1.Text.Trim)
cmd.Parameters.AddWithValue("@Date", Date.Today)
cmd.Parameters.AddWithValue("@PicPath", PicPath)

CON.Open()
cmd.ExecuteNonQuery()
CON.Close()