السلام عليكم 

اضف form  جديد صغير للادخال  موجود فيه textbox و button 

عن الضغط على button للاضافة 

ادخل هذا الكود

 If TextBox2.Text = "" Then

            MsgBox("الرجاء إدخال المنطقة")

        Else

            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Database1.mdb"

            Dim IDnum As String = "100"

            Dim insertCommands As New OleDb.OleDbCommand("INSERT  INTO area (area_add) VALUES ('" & TextBox2.Text & "')", con)

            Try

                con.Open()

                insertCommands.ExecuteNonQuery()

            Catch ex As Exception

                MessageBox.Show(ex.Message & " - " & ex.Source)

            Finally

                con.Close()

                MsgBox("تمت الإضافة ")

                Me.AreaTableAdapter.Fill(Me.Database1DataSet.area)

                TextBox2.Text = ""

                Me.Refresh()

            End Try