To delete

---------------------------
Paki copy and paste na lang..
-------------------------------

    'To delete specific data

    Public Sub deletedata()
        con.Open()
        Dim rs As New OleDb.OleDbCommand("Delete * from Table1 where EmpIdno = '" & txtempidno.Text & "'", con)
        rs.ExecuteNonQuery()
        DataGridView1.Refresh()


        rs.ExecuteNonQuery()
        con.Close()


        displaydata()