Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim ds As New DataSet
    Dim data As New OleDbDataAdapter
    Dim conn As New OleDbConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Group Project\Staff\Staff\bin\Debug\Blindz.mdb;User Id=;Password=;"
 
        data.SelectCommand = New OleDbCommand("SELECT * FROM Staff")
        data.SelectCommand.Connection = conn
        data.Fill(ds)
 
        data.InsertCommand = New OleDbCommand("INSERT INTO Staff(StaffName,BirthDate,Gender,Address,Phone,Position,StaffID,SystemPassword) VALUES(@StaffName,@BirthDate,@Gender,@Address,@Phone,@Position,@StaffID,@SystemPassword)")
        data.InsertCommand.Connection = conn
        data.InsertCommand.Parameters.Add("@StaffName", OleDbType.VarChar, 40, "StaffName")
        data.InsertCommand.Parameters.Add("@BirthDate", OleDbType.VarChar, 40, "BirthDate")
        data.InsertCommand.Parameters.Add("@Gender", OleDbType.VarChar, 40, "Gender")
        data.InsertCommand.Parameters.Add("@Address", OleDbType.VarChar, 40, "Address")
        data.InsertCommand.Parameters.Add("@Phone", OleDbType.VarChar, 40, "Phone")
        data.InsertCommand.Parameters.Add("@Pos", OleDbType.VarChar, 40, "Pos")
        data.InsertCommand.Parameters.Add("@StaffID", OleDbType.VarChar, 40, "StaffID")
        data.InsertCommand.Parameters.Add("@SysPassword", OleDbType.VarChar, 40, "SysPassword")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As DataRow
 
        dr = ds.Tables(0).NewRow()  'Gets a reference to a new row.
        dr("StaffName") = namebox.Text
        dr("BirthDate") = datebox.Value
        dr("Gender") = genbox.Text
        dr("Address") = addbox.Text
        dr("Phone") = phonebox.Text
        dr("Pos") = posbox.Text
        dr("StaffID") = id.Text
        dr("SysPassword") = syspass.Text
 
        ds.Tables(0).Rows.Add(dr)
        data.Update(ds)
        ds.AcceptChanges()
    End Sub
End Class