Imports System.IO 
Imports System.Data.OleDb

Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'student_data_DataSet.students' table. You can move, or remove it, as needed.
    Me.StudentsTableAdapter.Fill(Me.student_data_DataSet.students)

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    ' Setup a command builder so that we can talk to the data adapter.
    Dim commandBuilder As New OleDb.OleDbCommandBuilder(StudentsTableAdapter)
    Dim newRow As DataRow
    newRow = student_data_DataSet.Tables("students").NewRow

    ' Add columns for each item.
    newRow.Item("Student Name") = TextBox1.Text

    ' Add the new row to the table in the student_data_DataSet.
    student_data_DataSet.Tables("").Rows.Add(newRow)
    ' Write the changes to the database.
    StudentsTableAdapter.Update(Me.student_data_DataSet, "students")


    MessageBox.Show("New student added to the database.")


End Sub

 End Class