هذا هو الكود

Dim conn As New OleDbConnection

    Private Sub frmdoctors_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Reservation.accdb"

    End Sub

    Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click

        Try

            Dim cmdinsert As New OleDb.OleDbCommand

            cmdinsert.Connection = conn

            cmdinsert.CommandType = CommandType.Text

            cmdinsert.CommandText = "INSERT INTO  tbl_doc

                 (DOC_Name,DOC_PHONE,DOC_specialist,COUNT_P,DAYS_WORK,TIME_WORK)

                 values

                 ( '" & txtname.Text & "','" & txtphone.Text & "','" & cmpspec.Text & "',

                   '" & txtpcount.Text & "','" & cmpdays.Text & "','" & dtp.Value & "')"

            MsgBox(conn.State)

            conn.Open()

            MsgBox(conn.State)

            cmdinsert.ExecuteNonQuery()

            MsgBox("تمت الاضافه بنجاح")

        Catch ex As Exception

            MsgBox(ex.Message)

        Finally

            conn.Close()

        End Try

    End Sub

End Clas