Hi Mahesh,
Assuming Your problem,
1)First find display all the data available from a table on data grid
Code:
Private Sub Form_Load()
With grdAccount ' name of the grid
.ColWidth(0) = 100
.ColWidth(1) = 100
.ColWidth(2) = 100
.ColWidth(3) = 100
End With
Call grd_Data_Loader
End Sub
'Code for grd_data_Loader
Private Function grd_Data_Loader()
rs.Open "Select*from tblAccount", cn, 3, 3
Set grdAccount.DataSource = rs
Set rs = Nothing
End Function
2) Select the row for which u want to unlock
3) on select of the row call this function delete which will remove an entry from table
4) Call the grd_Data_Loader function again