[nimesh]

This is the code that I've used in my program for this purpose.

Protected Sub DeleteSQLCode(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
            strSql = "delete from myreports where ID = @id"
            con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./App_Data/Reports.mdb") & ";User Id=admin;Password=;")
            com = New OleDbCommand(strSql, con)
            com.CommandText = strSql
            com.CommandType = CommandType.Text
            com.Parameters.Add("@id", OleDbType.Integer).Value = lnkRemove.CommandArgument
            com.Connection.Open()
            com.ExecuteNonQuery()
            com.Connection.Close()
            disp_myrep()
        Catch
            msg = "<h1 class=""ErrMsg"">Error Encountered: </h1>" & "<br/><b><font color=""red"">Error Source: " & Err.Source & "<br/>Error Description: " & Err.Description & "</font></b>"
        End Try
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Sub