form1.vb

This code using Visual basic 2008 with Ms Access(Insert,Edit,Delete).

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim rea As OleDbDataReader
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListView1.Columns.Add("ID", 50)
        Me.ListView1.Columns.Add("Name", 150)
        Me.ListView1.Columns.Add("Gender", 70)
        Me.ListView1.Columns.Add("DateOFBirth", 100)
        Me.ListView1.Columns.Add("Address", 100)
        Me.ListView1.View = View.Details
        Me.ListView1.GridLines = True
        Call readdatatolistview()

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
        End
    End Sub

    Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("INSERT INTO tblstudent VALUES('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.ComboBox1.Text & "','" & Me.DateTimePicker1.Text & "','" & Me.TextBox3.Text & "')", con)
        cmd.ExecuteNonQuery()
        con.Close()
        'Me.TextBox1.Text = "STU" & Format(Mid(Me.TextBox1.Text, 4) + 1, "000")
        Call adddatatolistview(Me.ListView1, Me.TextBox1.Text, Me.TextBox2.Text, Me.ComboBox1.Text, Me.DateTimePicker1.Text, Me.TextBox3.Text)
        Me.ListView1.Items.Clear()
        readdatatolistview()
    End Sub
    Sub readdatatolistview()
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("select * from tblstudent", con)
        rea = cmd.ExecuteReader
        While rea.Read()
            Call adddatatolistview(Me.ListView1, rea(0), rea(1), rea(2), rea(3), rea(4))
            Me.TextBox1.Text = "STU" & Mid(rea(0), 4) + 1
        End While
        con.Close()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim i As Integer
        If Me.TextBox1.Text = "" Then
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
        Else
            For i = 0 To Me.ListView1.Items.Count - 1
                If Me.TextBox1.Text = Me.ListView1.Items(i).SubItems(0).Text Then
                    Me.TextBox2.Text = Me.ListView1.Items(i).SubItems(1).Text
                    Me.ComboBox1.Text = Me.ListView1.Items(i).SubItems(2).Text
                    Me.DateTimePicker1.Text = Me.ListView1.Items(i).SubItems(3).Text
                    Me.TextBox3.Text = Me.ListView1.Items(i).SubItems(4).Text
                    Me.ListView1.Items(i).Selected = True
                    Exit For
                End If
            Next
        End If
    End Sub

    Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("DELETE * FROM tblstudent WHERE stID='" & Me.TextBox1.Text & "'", con)
        cmd.ExecuteNonQuery()
        con.Close()
        Me.ListView1.Items.Clear()
        Call readdatatolistview()
    End Sub
    Private Sub ListView1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        Dim i As Integer
        For i = 0 To Me.ListView1.Items.Count - 1
            If Me.ListView1.Items(i).Selected = True Then
                Me.TextBox1.Text = Me.ListView1.Items(i).SubItems(0).Text
                Exit For
            End If
        Next
        Me.ListView1.Focus()
        Me.ListView1.FullRowSelect = True
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        con.Open()
        Dim cmd As New OleDb.OleDbCommand("UPDATE tblstudent set stname='" & Me.TextBox2.Text & "',stgender='" & Me.ComboBox1.Text & "',stdob='" & Me.DateTimePicker1.Text & "',staddress='" & Me.TextBox3.Text & "' WHERE stid='" & Me.TextBox1.Text & "'", con)
        cmd.ExecuteNonQuery()
        con.Close()
        Me.ListView1.Items.Clear()
        Call readdatatolistview()
    End Sub
End Class