[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

تفضّل أخي الكريم ..

كود :

Imports System.Data
Imports System.Data.OleDb
Public Class daleel
   Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click
       dataconnection()
       Dim cmd As New OleDbCommand
       cmd.Connection = cnn
       cmd.CommandText = "INSERT INTO [daleel] (id,kism,raesy,hesab) VALUES('" & T1.Text & "','" & t2.Text & "','" & t3.Text & "','" & t4.Text & "')"
       cmd.ExecuteNonQuery()
       MsgBox("تمت عملية حفظ  البيانات بنجاح")
       cnn.Close()
   End Sub
End Class

تحياتي